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DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
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sis ; MODULE DBGEXADEP (IDENT = ‘v04=000") = 

3 § BEGIN 

ae is 

: 5 ; PITTIIIILILILILI LILI LLL LiL TTT ii iiiiii Titi iiiiiiiiiiiiiiiii ii 
; be . 
; $ 1 i COPYRIGHT (c) 1978, 1980, 1982, 1984 B > 
; 3 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. « 
bo ts ALL RIGHTS RESERVED : 
; 1 1 ie THIS SOFTWARE IS FURNI SHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 1g 1 ie ONLY IN ACCORDANCE WITH THE TERNS OF SUCH LICENSE AND WITH THE ®* 
rie 1 ie INCLUSION OF THE ABOVE COPYRIGHT N NOTICE. THIS sof FTIWARE OR ANY OTHER ® 
: 14 14 1 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; #15 15 1 i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * 
Z 16 1g te TRANSFERRED. : 
: 18 18 1 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
: #19 19 1 ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$ 31 » : is CORPORAT TDW. . 
: é 00 é 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 023 1 i» SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
: $3 0093 | is 
3 $ Boss : PITTITITITITILI LILI LLL LL LIL LLL Ti Liti iii liiiiiiiiiiiiiiiiiiiiiil 
> i 

i $5 8059 | tee 

: 30 030 1 ! FACILITY: 

; 1 31 1! 

; é o038 ; DEBUG 

: : ; 

3 $ 4 : : Parse networks for EXAMINE, DEPOSIT, and EVALUATE. 

3 33 0038 { ENVIRONMENT : 

; 40 40 =: VAX/VMS 

F 4g ; 1! AUTHOR: 

i ¢ 1} 

3 rf} : } : David Plummer 

; 46 6 1 | CREATION DATE: 

ie’ 1/ 

; 48 1 i 9-Jul_80 

> 49 1} 

: $0 0 1 ! VERSION: 

3 1 , we 

; 52 1! v02.2-001 

rg az | i mopirieo BY: 

: 55 33 Richard Title 31-Jul-81 

; $ 3 1 ! REVISION HISTORY: 
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ee 
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20-JAN-84 


ep-1984 01:13: Ax-11 Qhigs Sat uk 74 
iSoseort9ge Q1:T595  YARSNY BLigs=52 yas 0n742 | 
Added type bg Bde 14 44 if /D_FLOAT, etc 
Added support for CKED: EXAMINE /DATE_ TIME 

Added support for a eyentK 

Added support te vee SEE /DATE TYPE and Fix EXAMINE/DATE_TIME 
to use D X_DX. 

Made DEP/INSTR™ oor right. 


“gh as 


* . 
GEXADEP 16-Sep-1984 01:13:03  VAX*11 Bliss-32 v4.0-74 : 3 
ita ereen i 8Be Pb 1gi8z | aMeN Oh isse ee Neel“ 285. ad 


68 ! 

i TABLE OF CONTENTS: 

71 ‘ 

7 FORWARD ROUTINE 

7 DBGSNPARSE_DEPOSIT, ! Parse network for DEPOSIT 


DBGSSET_ PAGE PROT ' Sets protection for a page list 
' Parse network 
Parse network 


EXAMIN 
DBGSNFORMAT_W1TH NRADIX: NOVALUE;! Formats a value with radix override 
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s , 

3 3 1 

3 1 

; » 1 

; 1 

3 § 1 

; 1 

3 4 1 

; 7. 

: 2 

3 3 0 é ! REQUIRE FILES: 

: Bl 5 0 1 REQUIRE : SRC$ : DBGPROLOG REQ’; 

; 8 0 4 LIBRARY *LIB$:DBGGEN.L32'; 

: Bh Ogig 1 | EQUATED SYMBOLS 

> 86 6 8 1 LITERAL 

3 87 0219 1 CEPOSIT = 1, 

3 88 0220 1 DEPOSIT_INSTRUCTION = ¢: 

4 4 0 2 : DEPOSIT_REGISTER = 3; 

: 91 1 LITERAL 

5; F 6 4 1 EVALUATE = 1, ! Plain jane EVALUATE 

4 9 0225 1 EVALUATE_ADDR = ¢: ' EVALUATE/ADDRESS 

3 4 8 $ : EVALUATE_COND = 3; ! EVALUATE/CONDITION_VALUE 

; 96 02 8 1 LITERAL 

3 97 0229 1 EXAM 2 3 

; 98 8s 0 1 EXAMINE_INSTRUCTION = ¢° 

3 99 0231 1 EXAMINE_REGISTER = 3, 

3; 100 0 $§ 1 EXAMINE_ SOURCE = 4, 

: 101 1) %z 1 EXAMINE CONDI TION_VALUE 2 &, 

; 138 0 1 EXAMINE_PSL = g. 

; HF BSe2 ' EXAMINE “PSW =f; 

; 198 0937 i — DUMMY_TYPE = dbg$k t ' Used in type node 

3 = notype, ' 

3 44 oS72 : MAX_STRING “SIJES= 256; 1 ! Max string size ¢ for SYSS$GETMSG. 
: 109 6 41 1 

; 4g : : EXTERNAL REFERENCES: 

: 118 44 1 EXTERNAL ROUTINE 

OW Si] BBEESY-Biane ova. ESOS SEV samt 
+ 115 “3 1 LUSHBUF : NNOVALUE , ! Initializes’ a oo print Line. 

; 116 48 1 DBGSGEY TEMPREM. ' Allocates command temporary dynamic storage 
3; (117 49 1 DBGSINS_DECODE, ! Decodes an instruction 
; 118 50 1 DBGSINS ENCODE, i j gacotes an instruction 
HS BR | BRGREBPT ESE Fie ieee 

: 121 i 1 DBGSNGET_DEFAULT_TYPE, ' Obtains user set default ty ype 
3 7 . = DBGSNGET_LE ° ! Obtains a pri sary’ S fvetue ength 
eS 4 $ 4 DBGSNGET“LVAL, ' Obtains a primar 

3; 6126 56 1 DBGSNGE T~ “MODE. ' Returns An if Uyaeaye (YF false otherwise 
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3; 12 ee DBGSNGET_OVERRIDE_TYPE, ! Obtains user set override type 

s 3 8 3 1 DBGSNGET_PAGES ! Obtains an rvalue page list 

r¥ 1 DBGSNGET-POTENTIAL_TYPE : NOVALUE, i Returns potential type and Length for ‘.° 
: 128 60 1 DEGSNGET TYPE, ! Obtains type of primary descriptor 

3; 129 61 1 DBGSNMAKE_ARG_VECT, ' Creates a message erguent vector 

3s 130 6¢ 1 DBGSNMAKE VAL_DESC, ! Constructs a value descriptor 

s 131 65 1 DBG TCH, ! Matches input against counted strings 

, ¥ ¢ 64 «1 DBGSNNEXT_WORD, ! Obtains next word of ut 

ors 65 1 DBGSNOUT_INFO ' Outputs and informational message 

: 4 0266 1 DBGSNPARSE_ADORESS i Interface to Address Expression Interpreter 
: 135 67 1 DBGSNPARSE EXPRESSION, i Interface to Expression Interpreter 

3 1 68 1 DBGSNSAVE_INT : Converts current radix input to integer 
<3 gy DBGSNSAVE-LAST_LOC : NOVALUE, i Saves ‘.' 

; 138 0 1 DBGSNSAVE_LAST_VAL : NOVALUE, ' Saves ‘\' 

3; 139 0271 1 DBGSNSET_CAST_TYPLEN : NOVALUE, ! Saves pseudo type and length 

3; 140 9 My 1 DBGSNSYMBOLIZE ' Symbolizes from a primary descriptor 

: 141 73 1 DBGSNSYNTAX_ERROR, i Formats a syntax error 

; 166 0274 1 DBGSNTYPE_CONV, ' Type converter 

; (14 0275 1 DBGSOUTPUT_PSL : NOVALUE, ! Qutputs the PSL in special format 

> «144 0276 1 DBGSPRINT: NOVALUE, ! Formats into output buffer 

3 «6145 0277 1 DBGSREAD_ACCESS, ! Probes for read access of virtual address 
3; 6146 os¢8 1 DBGS$SET_AMOD LVL, ' Sets MODE pointer 

: 147 0279 1 DBGSSRC_TYPE_PC_SOURCE : NOVALUE, ! Implements EX/SOURCE 

> 148 0280 1 DBGSSTA_SETREGISTERS : NOVALUE, ! Resets registers context. 

: 149 0281 1 DBGSTRANS_TO_REGNAME, ! Translate address to register name 

; 150 bees 1 SYSSGETMSG; ! Outputs system-type message. 

3 6151 0283 1 

; 13¢ 0284 1 EXTERNAL 

; 0285 1 DBG$GB_MOD_PTR : REF VECTOR C,BYTE), ! Pointer to MODE structure 

: 154 0286 1 DBGSGB_RADIX: VECTORC3,BYTE), ' Radix settings 

g 1395 0287 1 DBGSGL_CMND_RADIX, ' Holds radix of command 

3 136 osee ' DBGSRUNF RAME : BLOCK C,BYTE]; ! Pointer to current runframe 
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GLOBAL ROUTINE DBGSNPARSE_DEPOSIT (INPUT_DESC, VERB_NODE, MESSAGE_VECT) = 


—— 
ou 
oo 


e+ 


i FUNCTIONAL DESCRIPTION: 


This routine comprises the ATN parse network for the DEPOSIT verb. 
a parsing, calls are made to other routines to parse expressions 
and address expressions for inclusion as operands in the command 
execution tree. The competed tree is used as input to the command 
execution network which performs the associated semantic actions. 


DEPOSITs are affected by command override types, user set override types, 
and user set default types. The strategy of this routine is to construct 
a@ command execution tree that reflects this situation. Thus, whenver the 
target of the DEPOSIT is described by rn other than a primary 
descriptor, adverb nodes are created to describe the type for the 

target. Primary descriptor entity ge are overriden only by command 
and user set override types, - not the default type. 


When an instruction DEPOSIT is indicated, a kernal DEBUG routine is 
called to obtain the source of tne target. This MUST be a quoted string. 
heed anes for all other DEPOSITs is obtained through the Expression 
nterpreter. 


FORMAL PARAMETERS: 


INPUT_DESC - A longword containing the address of a standard ascii 
string descriptor representing the user's input 


VERB_NODE - A longword containing the address of the verb (head) 
node of the command execution tree 


MESSAGE _VECT - The address of a longword to contain the address of a 
message argument vector upon detection of errors 
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IMPLICIT INPUTS: 
NONE 


MIMIPINITOTUPON — 
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a a a a a ee ee ee ee ee ee ee ee ed a a 


IMPLICIT OUTPUTS: 

OF On success, the entire command execution tree is constructed. 

4 On failure, a message argument vector is constructed and returned. 

Be ROUTINE VALUE: 
: An unsigned integer longword completion code 

08 COMPLE TION CODES: 

if 7 STSSK_SUCCESS (1) - Success. Input parsed and execution tree constructed. 
i ; STSSK_SEVERE (4) . Fattore. Error detected. Ressage argument vector 

14 4 ; 

15 4 ! SIDE EFFECTS: 
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ita 12-808 -13be 313: DEBUG. SRC IDBGEXADED. 639; 1 
; 16 47 1! 
: 1 rf 1! NONE 
3 8 49 1! 
: 1 0 1 !-- 
; 0 0351 1 
3 1 6 ¢ BEGIN 
$ : 27 MAP 
; ¢ 8 55 VERB_NODE : REF dbg$verb_node; 
3 $ 0 3§ BIND 
3 3 o 53 Strings used at this level of parsing 
3 eno 0361 DBGSCS_INSTRUCTION = UPLIT BYTE (11, ‘INSTRUCTION'), 
: $3 O08 DBGSCS_PACKED = UPLIT BYTE (6, ‘PACKED') ! A3-¢ 
; 3 036 DBGSCS_DATE_TIME = UPLIT BYTE (9, ‘DATE TIME"), ' A3. 
3 ; 0364 DBGSCS_. SCIT = UPLIT BYTE (5, ‘ASCIT'), 
: 4 0365 DBGSCS_ASCIC = UPLIT BYTE (5, ‘ASCIC'), 
H 35 0366 DBGSCS_AC = UPLIT BYTE (ee "AC'), 
: 36 0367 DBGSCS_ASCIW = UPLIT BYTE (5, ‘ASCIW'), 
H 37 0368 DBGSCS_AW = UPLIT BYTE te. *"AW') 
; 238 0369 DBGS$CS_ASCIZ = UPLIT BYTE (5. ‘ASCI2"), 
3 $i0 0370 DBGS$CS_AZ = UPLIT BYTE (ee "AZ'), 
; 40 0371 DBGSCS_ASCID = UPLIT BYTE (5, ‘ASCID'), 
3 41 B378 CS_AD = UPLIT BYTE (2, sAD*) 
; ¢g 037 DBGSCS_BYTE = UPLIT BYTE (4, ‘BYTE"), 
> 26 0374 “WORD = UPLIT BYTE (4, ‘WORD') 
3: 2446 0375 DBGSCS_LONGWORD = UPLIT BYTE (8, "LONGWORD'), 
; 245 9376 DBGSCS_QUADWORD = UPLIT BYTE (8, ‘QUADWORD') 
; 246 037 DBG$CS_OC TAWORD = UPLIT BYTE (8. "OCTAWORD') 
3 247 0378 DBGSCS_FLOAT = UPLIT BYTE (5, ‘FLOAT*)» 
; 248 0379 DBGSCS_F _FLOAT = UPLIT BYTE (7, ‘F_FLOAT'), 
: 249 0380 § DBG$CS_D_FLOAT = UPLIT BYTE (7, ‘D_FLOAT"), 
; a 0381 DBGSCS_G_FLOAT = UPLIT BYTE (7, ‘G_FLOAT'), 
s 2sl Oee¢ DBGSCS_H_FLOAT = UPLIT BYTE (7, ‘H_FLOAT'), 
; $26 038 DBGS$CS- COLON = UPLIT BYTE (1, dbg$k_colon), 
3; 25 0384 DBG$CS~SLASH = UPLIT BYTE (1, dbg$k-slash), 
3; 254 0385 DBG$CS_EQUAL_SIGN = UPLIT BYTE (1, dbg$k_equal), 
3 $2? Ba59 GS$CS_CR = UPLIT BYTE (1, dbg$k_car_return); 
; i 0388 LOCAL ; 
; 258 89 ADDR_EXP_DESC : REF dbg$aed, ! Address expression descriptor 
; 259 90 : REF dbg$noun_node, ' Objec 
: 260 91 ADVERB_NODE : REF dbg$adverb_node, ! Adverb 
: 261 38 LINK ' Pointer 
; 6¢ 039 INP_RADIX, ' Radix for numeric literals 
: 26 94 YPE ! Type of target 
: 266 95 LENGTH i Length of target 
; 265 % ADDRESS : VECTOR (2), i Address of target 
: $6 9 STATUS, ' Return status 
5 4 $o5 VALPTR : REF dbg$valdesc; ! Value descripter 
3 +4 206 : Create and Link a noun node to contain the target 
: 71 ¢ noun_node = dbgsget_renpaes idagth noun node size); 
: 272 40 verb_node (dbg$l_verb_object_ptr] = .noUn_node; 
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; 273 4 

> 276 5 

: he is } Initialize target type and Length 

; + rts type = 1; ! =1 indicates that we have not found an override type 
: a8 ret Length = 6; 

: 280 11 : Accopt any command suitches. We start out with a verb composite representing 
; 281 if ! a plain DEPOSIT. This may change as a result of command or user set overrides. 
3 HG 1 ! We changes the composite to DEPOSIT_INSTRUCTION if we find /INSTRUCTION. 
: 8 tt) } We do not create an adverb node for radix switches - only types. 

; BS 41g verb_node Cabgsb verb_compos ite] = deposit; 

3 iy eit np_fadix = .dbgSgb_radix(dbg$b_radix_input); 

; 88 0419 WHILE dbgSnmatch (.input_desc, dbgScs_slash, 1) 

: 290 0421 BEGIN 

: 91 Be ¢ SELECTONE true 

; 4 4 OF 

BRS “a 

; 236 Be $ 2 edbginneteh (.input_desc, dbg$cs_instruction, 1)] : !DEPOSIT/INSTRUCION 
; 0428 4 type = dsc$k_dtype_zi; 

3 2 - , END: es 

: 00 0431 Cdbg$nmatch (.input_desc, dbg$cs_byte, 1)] : ! DEPOSIT/BYTE 

; 301 04 ; 4 BEGIN 

; 30 04 4 type = dsc$k_dtype_b; 

; 04 & length = byté_length; 

3 305 os 5 ; END; 

: 4 be3 Cdbg$nmatch (.input_desc, dbg$cs_word. 1)] : ! DEPOSIT/WORD 

; $0 0438 4 BEGIN 

; 308 0439 4 type = dsc$k_dtype_w; 

; 309 40 4 Length = word_length; 

; 19 rt ; END; 

: \¢ bee$ Cdbg$nmatch (.input_desc, dbg$cs_longword, 1)] : ! DEPOSIT/LONGWORD 
3 1 0444 4 BEGIN 

; 314 0445 & type = dsc$k_dtype_l; 

: 315 org 4 length = long_length; 

He Hy a 

; 318 449 Cdbg$nmatch (.input_desc, dbg$cs_quadword, 1)] : ! DEPOSIT/QUAD 
8 ff Het deh. 

; e = dsc$k_ e_a: 

; 1 5 4 izngth s 5: en 

: § 27 ; 3 

: 4 3¢ Cdbg$nmatch (.input_desc, dbg$cs_date_time, 2)] : ! DEPOSIT/DATE_TIME 
. 5 #26 6 BEGIN 

: $ 4 type = ds¢Sk_dtype_adt; 

3 3 4 length = 8; 

3 8 4 ; END; 

; “s 60 


— 


14-Sep-1 254 DEBUG. SRC JDBGEXADEP.B3 (3) 
Cdbgsometch (.input_desc, dbg$cs_octaword, 1)] : ! DEPOSIT/OCTAWORD 


Pe = He 7 dtype_o; 
END? 
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Cdbg$nmatch (.input_desc, dbg$cs_ f lost. 1) 
dbgSnmatch (,input=desc, dbg$cs_f_floar, 1)] : ! DEPOSIT/FLOAT 


9 0 type = dsc$k_dtype_f; 
0 # itneth oa; " 
7 e 
§ RR bebgsnantch (.input_desc, dbg$cs_d_float, 2)] : ! DEPOSIT/D_FLOAT 
5 7 type = Gogh ctype si 
§ 7 Length = 8; 
8 i: : 
$3 Waeaeneeeh (.input_desc, dbg$cs_g_float, 1)] : ! DEPOSIT/G_FLOAT 
51 ¢ type = os ye dtype_g; 
25 Length 
3 : ND; 
i Cdbgsamatcn( . -input_desc, Syren an bet 2)] : ! DEPOSIT/H_FLOAT 


type = dsc$k _dtype_ 
Length 16;~ ' 


Cdbgénastch (.input_desc, dbg$cs_packed, 1)] : 
type = dsc$k_dtype_p; 


' Accept the °:° and inte at If there is no colon, use 
a length or default of 


if NOT dbg$nmatch (.input_desc, dbg$cs_colon, 1) 


RELELE 


BEGIN 
Length = 10; 


ELSE 
BEGIN 


: We found the colon. Accept the integer 
IF NOT dbg$nsave_integer (.input_desc, length) 
RETURN sts$k_severe; 
: Check to see that the length is within 0 and 31 
if (,length LSS 0) OR (.Length GTR 31) 
SIGNAL (dbg$_illpacsiz, 1, .length); 
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te th ee 


PR rae: a a eS eae 

taste easep- lobe feilesse — Eogaug. SReSbBGeKADEP 039; 1 pose 15) 
END; ' A3-2 . 

END; ! AS. 


Cdbgsometch (,input_desc, dbg$cs_ascii, 1)] : ! DEPOSIT/ASCII 


—+ 
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! Accept the °:° and integer. If there is no colon, we assume 
: a length of 4 


if _dbgSnmatch (.input_desc, dbg$cs_colon, 1) 
BEGIN 


ab bh hb dh bebedib bedi deh dah del 


CSSReRsesEsestass 


Z We found the colon. Accept the integer 

¢ if NOT dbg$nsave_integer (.input_desc, length) 

: 5 RETURN sts$k_severe; 

rt : Check to see that the length of the ascii deposit is not 0 
08 


if .length LEQ 0 
THEN 


BEGIN 
OWN num_desc : dbg$stg_desc; 


num_desc pgscdu_oogen) = 1; 

num_desc Cdsc$a_pointer] = UPLIT TYPE ('0'); 

message _vect = dbg$nmake_arg_vect (dbg$_invnumber, 1, num_desc); 
ac ruNe sts$k_severe; 


st 
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END; 
type = dsc$k_dtype_t; 


Cdbg$nmatch (.input_desc, dbescs_asc ic 5), 
dbgsnmatch (, input=desc, dbg$cs_ac, 25] : 


E 
type = dsc$k_dtype_ac; 
Kb: 


Othe tbdeehdedte be taby-daby dah dah dab dab dah dh deh dah dab hb bch db db db dhl 


DOONAN WYO OONOUES WIN "OO 


wn— 


Cdbg$nmatch (.input_desc, dbg$cs_asciw, 5), 
dbg$nmatch (.input-desc. dbg$cs_aw, 25) : 
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5 t = dsc$k_dtype_vt; 
EXD: _— 
Cdbg$nmatch (.input_desc, dbg$cs_asciz, 5), 
4 %6 dbaSnmatch (input "dese, doateenon 35) : 
de , type = dscSk_dt 
s . 
rr 4 expe sc$k_dtype_az; 
&& 74 
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type = dbgSk_dtype_ad; 


SAVES 


Cormenyi se : ! Some flavor of user error 


messe e.vect = 
a i d gSnmatch (.input_desc, dbg$cs_cr, 1) 


5 dbg$nmake_arg_vect (dbg$_needmore) 


Meu 


coe error (dbg$nnext_word (.input_desc))); 
_ sts$k_severe; 


TES; 
END; 


Et el el ek el ek ee a el a 

yet kt eee 
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: Obtain the target of the DEPOSIT in the form of an address expression descriptor 


éTaTus = DBGSNPARSE_ADDRESS (. INPUT DESC, NOUN_NODE CDBGSL_NOUN_VALUE]), 
P_RADIX, TOKENSK_TERM_EQUAL, .MESSAGE_VECT); 
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47 ! The Address Expression Interpreter MUST give us a warning return to 
ret : indicate the ‘=" that seperates the target from the source. 

if .status NEQ sts$k_warning 

THEN 


BEGIN 
i geome EQL sts$k_success ! Missing ‘=' 
-message_vect = dbg$nmake_arg_vect (dbg$_needmore); 
RETURN stsSk~ severe; 
END; 
: Gobble the ‘=' 
a dbg$nmatch (.input_desc, dbg$cs_equal_sign, 1) 


ré 
<o 


1 dbgSnmatch (.input_desc, dbg$cs_cr, 1) 
Beene arg_vect (dbg$_needmore) 

dbgse syntax_error (dbg$nnext_word (.input_desc))); 
3 sts$k_severe; 
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! Recover the target address expression descriptor 
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16-Sep-1984 01:13:03 AX-11 Bliss-32 V4.0-74 
12286871382 93318: 4 DEBUG. SRCIDBGEXADEP.B3 37 
' 
addr_exp_desc = .noun_node (dbg$l_noun_valuel; 
! Create an adverb node which we may use to type the target, but don't Link 
it to the verb node until we need to. 
adverb_node = dbg$get_tempmem (dbg$k_adverb_node_size); 
ype the target based on command overrides, user set overrides, current 
ocation typing, address expression descriptor contents, or user set defaults. 
heck for command override. 
-type NEQ -1 
i yp 


aon-n 


BEGIN 
verb_node Capes verb_adverb_ptr]_= .adverb_node; 
adverb_node (dbg$Sb_adverb_liferal] = .type; 


adverb_node (dbg$l_adverb_value] = .length; 


There was no command override. Check for a type/override. 
IF dbg$n et_override_type (type, length) 
THEN gsng yp yp 9g 


BEGIN 
verb_node Cdbgst verb_adverb_ptr] = .adverb_node; 
adverb_node (dbg$b_adverb_literal] = .type; 
adverb_node (dbg$l_adverb_value] = .length; 


The adverb rode has been set up. and the command has been classified as 
either DEPOSIT or DEPOSIT_INSTRUCTION. The target has been placed in the 
first noun node. Now the source must be obtained. We allocate another 

noun node and Link it to the first one for this purpose. This second 

noun node will point either to a value descriptor or to a buffer containing 
@ potential instruction counted string. 


Link = noun_node Cdbg$l_noun_link); 


noun_node = dbgsget_te em (dbg$k_noun_node_size); 
elink = .moun_node;~! This Links the new noun node 


! For implementation level 3, we always just want to call the 
: expression parser. 


if NOT (STATUS = DBGSNPARSE_EXPRESSION (. INPUT DESC, .INP_RADIX, 
NOU COBG$L_NOUN VALUE), 
TOKERSK TERM_NONE, .MESSAGE_VECT, 
DBGSK_DEPOSIT_VERG)) 


THEN 


se 


B 
rb-sep-1964 01:18:05 YAKet! BLigs=42 v4. 0-742 


BEGIN 
We do not expect more input after the expression 
i EQL sts$k_warning 
-message_vect = dbg$nsyntax_error (dbg$nnext_word (.input_desc)); 
o stsdk_severe; 


: This assures that the DEPOSIT/INSTR has a quoted string. 
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7 if .type EQL dscSk_dt i 
, Reh ype EQL dscSk_dtype_z 
7 BEGIN 
7 vaiptr = .noun_node fébg8\ _noyn value); 
7 IF .valptr Cdbg$b_value_dtype) REQ dsc$k_dtype_t 
4 5 . SIGNAL (dbg$_opnotallow, 1, uplit byte(Zascic ‘DEPOSIT')); 
0709 2 
0710 RETURN sts$k_success; 
5 0711 END; 


«TITLE DBGEXADEP 
ENT 


: \V04-000\ 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,O 
0B .BYTE 11 
4E 4F 49 54 43 5S 52 56 53 4E 4 “ASCII \INSTRUCTION\ 
44 45 4B 43 41 38 ASCII \PACKED\ 
45 4D 49 56 SF 45 56 41 a4 ASCII \DATE_TIME\ 
49 469 463 53 41 “ASCII = \ASCIIN 
05 “BYTE 
43 49 43 53 41 “ASCII \ASCIC\ 
a “BYTE 
43 4 “ASCII \AC\ 
05 “BYTE 
57 49 43 53 41 “ASCII = \ASCIW\ 
0¢ “BYTE 2 
57 4} “ASCII \AW\ 
SA 49 43 53 ai ASCII \ASCIZ\ 
SA oF “ASCII \AZ\ 
44 49 43 53 9 “ASCII = \ASCID\ 
0¢ ‘BYTE 
44 “ASCII \AD\ 
9 “ASCII = \BYTE\ 
04 "BYTE 4 


roo 


--——— 


abet SOE YAMGIY OU Sgc82 ys O-762. 


° 
° 


pagers EP Ri 


44 52 4F i 5; pis “ASCII WORD : 
44 52 GF 57 47 4E GF i = ie “ASCII SLONGUORD\ ; 
44 52 GF 57 44 41 55 3 "ASCII \QUADWORD\ ; 
8 P.AAQ: :BYTE 8 ; 
46 52 GF S7 41 54 43 GF "ASCII = \CCTAWORD\ : 
05 C P.AAR: <BYTE 5 : 
54 41 GF 4C ag “ASCII = \FLOAT\ : 
0 : P.AAS: :BYTE 7 : 
54 41 GF 4C 46 SF 46 7 “ASCII \F_FLOAT\ : 
0 007A P.AAT: BYTE 7°” : 
54 41 GF 4C 46 SF 46 “ASCII \D_FLOAT\ : 
07 00082 P.AAU: ‘BYTE 7 F 
54 41 GF 4C 46 SF 47 000 “ASCII \G_FLOAT\ : 
07 O008A P.AAV: ‘BYTE 7 : 
54 41 GF 4C 46 SF 48 000 “ASCII = \H_FLOAT\ : 
A 01 00092 P.AAW: ‘BYTE 1,75 : 
F 01 00094 P.AAX: (BYTE 1. 4 : 
D 01 00096 P.A “BYTE 1. 61 ; 
D 01 00098 P.AAZ: ‘BYTE 1. 13 : 
00 00 00 30 $o09e P.ABA ee fovcg><o><0> 
54 49 53 4F 50 9 44 07 OOOAO P.A "ASCII <7>\DEPOSIT\ : 


~PSECT DBGSOWN,NOEXE, PIC,2 
00000 NUM_DESC: 


-BLKB 12 
DBGS$CS_INSTRUCTION= P.AAA 
DBGSCS_PACKED= P.AAB 

DBGSCS_DATE_TIME= P.AAC 
DBese “ASCIT= P.AAD 
DBGSCS_ASCIC P.AAE 

BGSCS"AC= P.AAF 
DBGS$CS_ASCIW= P.AAG 

GS$CS"AW= P.AAH 
DBGSCS_ASCIZ= P.AAI 
DBG$CS_AZ= P.AAJ 
DBGSCS_ASCID= P.AAK 
DBGSCS"AD= P.AAL 

“BYTE= P.AAM 
$CS-WORD= P.AAN 
S“LONGWORD= =P. AAO 
S"QUADWORD= =P. AAP 
S"OCTAWORD=  § P.AAQ 
S-FLOAT= P.AAR 
S"F _FLOAT= P.AAS 
S-D-FLOAT= P.AAT 
S-G-FLOAT= P.AAU 
S"H"FLOAT= P.AAV 
3-COLONS P. AAW 
S"SLASH= P.AAX 
S“EQUAL_SIGN= P.AAY 
$CS"CR= P.AAZ 
-EXTRN DBGSCVT_DX_DX, DBGSDEF _SYM_F IND 


athe 


msegaee EATS GUGLROE WGN NAEGEE ST, Pome Us 


-EXTRN DBGSFLUSHBUF, DBGSGET_TEMPMEM 

SEXTRN DBGSINS DECODE, DBG IRS ENCODE 

*EXTRN DBGSNCOPY "peyAuCT? BGSNEWCIN 

EXTRN DBGSNGET_DEFA YPE 

“EXTRN DBGS$NG TILEN 

-EXTRN DBGSNGET-LVAL 1 DaGENGET _MODE 

SEXTRN DBGSNGET-OVERRIDE TYP 

eEXTRN DBGSNGET— rine tt DBGSNGET POTENTIAL. TYPE 
T“TYPE, DBG E“ARG_VECT 


N 

N 

N 

N 

N 

N 

N DBGSNS TYPLEN 

N PRGSNSVNEOL IZE. DEGSNSYNTAX ERROR 
RN DBGSNTYPE_CONV, DBGSOUTPUT_PSL 
N DBGSPRINT. pPBGSREAD _ACCESS™ 

N DBGSSET 

N DBGS$SRC_T TYPES pe C_SOURCE 

N DBGSSTA Age REGISTERS 

N DBGSTRANS_TO_REGNAME 

N SYSSGEIRSE, Oneesce MOD 

ND Ravix, DBGSEL_ PANDY _RADIX 


SOS SORT RAN 
-PSECT DBGSCODE,NOWRT, SHR, PIC.O 

OFFC 00000 ENTRY Reena ees Save R2,R3,R4.R5,R6,R7.-; 0290. 

58 00000000" FF 9E 00002 MOVAB F 

5a 000000006 60 9€ 90009 MOVAB DBGSNMA Aten : 

59 00000000' EF H 0010 MOV DBGSCS RAAT EH 8 ; 

SE 10 C2 00017 SUBL2 #16, SP : 
4 DD OOO1A PUSHL + 0402 

000000006 99 1 FB 9001¢ CALLS #1, DBGSGET_TEMPMEM : 

0 pO 000 MOVL RO, NOUN nop ; 
55 08 AC DO 00026 MOVL VERBY NODE, + 0403 

08 AS 57 DO OO02A MOVL § NOUN"NODE, BeRS) ; 
04 AE 01 CE 000 E MNEGL #1, TYPE + 0408 
6E 4 000 CLRL NGTH : 0409 
01 AS oi 0 00 MOVE 1(R5) : O4i6 
38 900000006 00 9A MOVZBL DBESGR RADIX INP_RADIX > 0417. 
§ 04 Ac 00 99 F MOVL _INPUT_BESC, R3 + 0419 

01 DD 43 1$: PUSHL #1 : 

02 Ad 9F 0004 PUSHAB DBGSCS_SLASH : 

53 DD 00048 PUSHL : 

6A FB 4A CALLS #3, DGSNMATCH : 

3 5 4 BLOBS =o ; 
0270 31 BRW 42$ ; | 
01 1) 23: PUSHL a 3: 0426. 

FFOE F PUSHAB DBG$CS_INSTRUCTION : 

DD PUSHL R : 

6A F B CALLS #5, pocsamatcn é 

1 D E CMPL sR. : 


<f | 
GEXADEP 16- e-1984 1:13:03 YAX=11 BLigs-32 v4.0-74 Page 15. 
vb 14-5 eee 1382 94:13 254 DEBUG. SRC IDBGEXADEP .B3 31 - Ri | 
1 BNEQ = 3 : 
06 AE 96 06 ; MOVL #2, TYPE : | 
DA BRB 1 : 
1 po 9 3$ PUSHL #1 : 0431) 
BS AD OF PUSHAB DBGS$CS_BYTE : 
DD PUSHL R : 
6A Fe CALLS #3, DBGSNMATCH : | 
01 2 7 CMPL wi : | 
1 BNE : 
04 AE 6 D 907 MOVL #6, TYPE : 435 
6E 1 0 7¢ MOVL #1. LENGTH + 04 
ce 11 0007F BRB 1$ : 432 
pp 1 4$ PUSHL #1 + 0437) 
BA Ad 9F 3 PUSHAB DBGSCS_WORD : 
53 DD 000 PUSHL R : 
6A g FB 000 CALLS #3, DEGSNMATCH : 
01 0 D1 00088 CMPL ss RO. #1 : 
09 if O08 BNE : 
04 AE 7 00 000 MOVL #7, TYPE : 0439, 
6E 02 00 0094 MOVL #2. LENGTH 3 0440, 
AA 11 00097 5$: BRB 1s F 0428 
01 00099 6: PUSH : 0443, 
BF Ad 9F 0009B PUSHAB DBGSCS_LONGWORD ; 
53 DD 0009 PUSHL ; 
6A 03 FB OOOA CALLS #3, DBGSNMATCH : 
01 0 D1 000A CMPL =sRO,. #1 : 
06 iF; SOAS BNEQ 3 
04 AE 08 0 990 MOVL #8, TYPE : 0445, 
64 11 OOOAC BRB 12$ + 0446 
01 DD OOOAE 7$ PUSHL #1 + 0449 
C8 «AD «(OF 0008 PUSHAB DBG$CS_QUADWORD : 
33 DD 0008 PUSHL : 
6A 03 FB 90085 CALLS #3, DBGSNMATCH : | 
01 50 D1 000B CMPL * i : 
06 if 00BB BNEO ; 
04 AE 09 00 000BD MOVL #9, TYPE + 0451 
7¢ 11 000C1 BRB 15$ F 045¢ 
0 pp 00¢3 8$ PUSHL #2 + 045 
81 Ad 9F 000C PUSHAB DBGSCS_DATE_TIME F 
53 od 000C8 PUSHL 3 
6A : FB OOOCA CALLS #3, DBGSNMATCH : 
01 0 01 99¢ CMPL ‘wi ; 
1 D BNEO F 
04 AE p D MOVL #35, TYPE : 0457 
BRB 153° : 0458) 
1 po D8 9S PUSHL #1 : 0461 | 
D1 Ad 9F OOODA PUSHAB D&GSCS_OCTAWORD : 
DD 000DD PUSHL R : | 
6A FB DF CALLS #3, DBGSNMATCH : | 
01 ; E CMPL =soRO. 1 : | 
6 E BNEG =-:108 : 
046 AE A ? E MOVL #26, TYPE 3 9663 | 
6A £B BRB 17$ > 0464 
1 DD OOOED 10$:  PUSHL #1 > 0467 
DA Ad 9F OODEF PUSHAB DBGSCS_FLOAT : 
3 DD Fe PUSHL ki ; 
6A FB OOOF CALLS #3, DBGSNMATCH : 


nm 8 | 
GEXADEP 16-Sep-1984 01:13:03 VAX-11 4.0-74 | 
vee 1a-8ep O43 Bhi Sbecexacee Page 19 


-$ep-1984 54 DEBUG. XADEP.B32;1 | 
32 9 D F7 MOVL RO, R : 
1 9 FA CMPL R ri : 
1 Db O00rr BUSH is + 0468. 
£0 A BF 101 PUSHAB DBGSCS_F_FLOAT : 
53 DD 001 PUSHL R ; 
A FB 001 CALLS #3, DBGSNMATCH : 
1 0 1 001 CMPL sR. #1 : | 
9 1 10¢ BNEQ = '1 : 
04 AE A DO OO10E 118:  MOVL #10, TYPE + 0470) 
6E 4 DO 00112 12$:  MOVL #4, LENGTH : 0471) 
1 11 BRB 5 : age 
po 117 13$:  PUSHL @# : 04 4 | 
E8 AS 9F 00119 PUSHAB DBG$CS_D_FLOAT : 
53 DD O011C PUSHL R 3 | 
6A 9 FB OO1IE CALLS #3, DBGSNMATCH : 
01 0 b1 00121 CMPL = RO, #1 : 
06 if 0124 BNEG 14 : 
04 AE 08 D ot 6 MOVL #11, TYPE + 0476 | 
13 11 OO12A BRB 15$ : 0477 | 
01 DOD 0012C 14$:  PUSHL #1 ; 0480 
FO AD OF OO12E PUSHAB DBG$CS_G_FLOAT : 
53 Db or 1 PUSHL R : 
6A 03 FB 00133 CALLS #3, DBGSNMATCH : 
01 50 1 001 CMPL SRO. #1 : 
09 12 001 BNEG § =: 16$ ; 
04 AE 1B DO 00138 MOVL #27, TYPE ; 0482 
6E 08 DO 0013F 15$: MOVL #8, LENGTH : 048 | 
66 11 00142 BRB 21§ + 0422 
02 DD 00144 16$:  PUSHL #2 + 0486 | 
FB AD «OF 00146 PUSHAB DBG$CS_H_FLOAT : 
53 DD 00149 PUSHL R : 
6A 03 FB 00148 CALLS #3, DBGSNMATCH : 
01 0 D1 0014E CMPL RO #1 : 
09 if 131 BNEQ 18$ : 
04 AE 1c OD 01 ; MOVL #28, TYPE 3 0488 | 
&f 10 00 01 17$:  MOVL #16, LENGTH + 0489 
4E 11 OO15A BRB 218 > 0422 | 
01 po 015¢ 18$: PUSHL #1 : 0492 
FF7A £9 F 0155 PUSHAB DBG$CS_PACKED : 
; DD 0016 PUSHL R : 
6A g FB 0164 CALLS #3, DBGSNMATCH : 
01 0 D1 00167 CMPL ai : | 
40 if O16A BNEG 2, : 
04 AE 15 D 1 OVL #21, TYPE > 0494 
1 DD 001 PUSHL @ + 0499 | 
0208 F 6B 0017 PUSHR #*M<R3,R9> 3 
6A ; FB 0017 CALLS #3, DBGSNMATCH ; 
05 £8 001 BLES =o ; 
6E A p 17¢ MOVL =o 6. LENGTH F 502, 
B 17F BRB 6 : 0499 | 
4008 8F BB 00181 19$:  PUSHR #*M<R3 sp : 0509. 
000000006 09 3 FB 185 CALLS #2, DBGSNSAVE_INTEGER ; 
4 E9 0018¢ BLBC ’ : 
50 E 9 18F MOVL NGTH, RO : 0515 
192 BLSS ; 
1F 0 pi 00194 CMPL =saRO, #31 ; 


n 8 | 
GEXADEP 16-Sep-1984 01:13:03 AX-11 Bliss-32 V4.0-74 Pa 7 
MOec 000 boa ets 7aR Pa ot) a SR D8 LT eet ey 
3 15 00197 BLEQ 26 | : 
0 DD 00199 208 PUSHL 6 : 0517) 
1 DD 00198 PUSHL #1 : 
00028828 8F ODD 190 PUSHL #165928 : | 
000000006 00 : FB 1A CALLS #3, LIBSSIGNAL : 
11 OO1AA 318 BRB 29$ : 0422 
01 po O1AC 22$ PUSHL #1 : 0521. 
88 AD OF OOIA PUSHAB DBG$CS_ASCI1 : 
53 DD 0018 PUSHL R : | 
6A : FB 001B CALLS #3, DBGSNMATCH : 
01 ° D1 3188 CMPL R #1 s 
43° 12 O18 BNEG 278 : 
USHL ft é 
1 DD 00188 PUS 1 0527 | 
0208 8F BB O1BD PUSHR  #*M<R3,R9> : 
GA 03 FB O1C CALLS #3, DBGSNMATCH : 
1 0 €9 001C4 BLEC Osi F 
4008 BF BB O01C7 PUSHR #*M<R3_SP> ; 0533) 
000000006 00 2 FB O1C CALLS #2, DBGSNSAVE_INTEGER : | 
03 5 é 01D2 23$:  BLBS RO, 24$ : | 
0187 31 0010 BRW : 
6E 05 001D8 24$: ~—s«TSTL NGTH + 0539) 
1C 14 OO1DA BGTR ; 
6B 01 BO 0010C MOVW #1, NUM_DESC + 0544 
04 AB OA AD 9E 001DF MOVAB P.ABA, RUM_DESC+4 + 0545 
5B DD OO1E4 PUSHL Ri1 : 0546) 
01 DD 0016 PUSHL #1 : 
00028180 8F DD OO1ES PUSHL #164272 : 
LLS #3, DBGSNMAKE_ARG_VEC : 
000000006 00 0003 re OIE CAL S #3, DBGS T 
04 AE OF D0 Sorte S$: MOVL #14, TYPE : 055 
11 OO1FC 26$: BRB 34$ : 042 
05 oD OO1FE 27$:  PUSHL #5 : 055 
91 Ad 9F 00 09 PUSHAS DBGSCS_ASCIC F | 
53 DD 0020 PUSHL R : 
6A 03 FB 00205 CALLS #3, DBGSNMATCH : 
52 50 DO 00208 MOVL RO. R2 ; 
01 52 D1 00208 CMPL = R2. #1 : 
OF 13 00 OF eq. 4=—s« $ : 
2 bd 00 1 PUSHL @# : 0558 | 
97 AD 9F 0021 PUSHAB DBGSCS_AC : | 
53 DD 0021 PUSHL : 
6A 03 FB 0021 CALLS #3, DBGSNMATCH ; 
01 50 D1 OO2TA CMPL R #1 g 
6 if 0 1D BNEG 3 : 
04 AE : D 1F 288:  MOVL #38, TYPE > 0560 
11 00 9$: BRB 37$ : 042¢ 
05 pp 0 O$: PUSHL #5 > 056 
9A AD OF PUSHAB DBGSCS_ASCIW ; 
33 DD 0022A PUSHL R ; 
94 44 C CALLS #3, DBGSNMATCH $ 
2 : D F MOVL RQ. R : 
01 D1 CMPL =soaR2. @ : 
OF 13 00 BEQL «6s 318 ; 
pd PUSHL #2 > 0564 
AO «AD. OOF 9 PUSHAB DBGSCS_AW : 
53 DD C PUSHL R : 
6A 0 FB 0023E CALLS #3, DBGSNMATCH 3 
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#] 
» TYPE 


S os 


$CS_ASCIZ 
. Re GSNMATCH 


G$CS_AZ 


eres 


- TYPE 


SD BWW BDO Bw DW SEV BwawyD 
POG «+ 
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passes ~ASCID 
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DBGS$CS_AD 
#3, DBGSNMATCH 
RO, #1 


38 
#56, TYPE 
1$ 


#1 
Pio 
+ entecieae: 


#164048 

#1, DBGSNMAKE_ARG_VECT 
i 
fi. DBGSNNEXT_WORD 


“i. DBGSNSYNTAX ERROR 
@ME SSAGE _VECT 


MESSAGE _VECT, R4 
rvs 

#°M<R3,R 

nS DBgSNPARSE, ADDRESS 


STATUS, #1 
41$ 
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9 
1b-5e -1984 01:13:03 AX-11 Bliss-32 V4.0+74 
1 ~300n 138% 93:13:82 DEBUG. ERCTOBCEXADED 03551 
1A 11 002E0 BRB 44$ 
01 po EF 43$:  PUSHL #1 
04 AD 9F OO2F1 PUSHAB DBGS$CS_EQUAL_SIGN 
53 DD 002F4 PUSHL R 
FB r6 CALLS #3, DEGSNMATCH 
E F LBS ss «RO, 458 
1 BD FC PUSHL #1 
06 AD OF OO2FE PUSHAB DBGSCS_CR 
53 DD } PUSHL R 
Q FB CALLS #3, DBGSNMATCH 
; 00028000 4 +4 44$ Pheri Mr eabes 
000000006 00 04 Fe 6 rf CALLS “ DBGSNMAKE _ARG_VECT 
50 67 DO 00 is 45$:  MOVL § (NOUN_NODE), ADDR_EXP_DESC 
03 DD 99 1B PUSHL # 
000000006 00 gi FB 00310 CALLS #1, DBGSGET_TEMPMEM 
52 0 00 0324 MOVL RO, ADVERB_RODE 
FFFFFFFF © BF 06 AE D1 03 7 CMPL  =sC'TYPE, #1 
OF 12 00 é BNEQ  46$ 
5E DD 00331 PUSHL 
08 AE 9F 00333 PUSHAB TYPE 
000000006 00 02 FB 00336 CALLS #2, DBGSNGET_OVERRIDE_TYPE 
0c 50 €9 00330 BLBC ~—.—s«@wRO} 
04 AS 52 00 00340 46$: MOVL #§ ADVERB_NODE, 4(R5) 
62 04 AE 90 00344 MOVB TYPE, CTADVERB_NODE) 
04 Ao oe DO 00348 MOVL LENGTH, “4 CADVERB_NODE) 
52 08 A? 9E 99 4C 47$: MOVAB &(R7), LINK 
04 DD 00350 PUSHL # 
000000006 00 01 FB 00352 CALLS #1, DBGSGET_TEMPMEM 
57 20 D 90399 MOVL RO, NOUN_NOD 
62 57 dO 0035C MOVL NOUN_NODE, (LINK) 
95 DD 0035F PUSHL #5 
4 0D 00361 PUSHL 4 
7E D4 00363 CLRL. = (SP) 
57 DD 00365 PUSHL  NOUN_NODE 
0108 8F BB 00367 PUSHR #°M<R3,R8> 
000000006 90 06 FB 0036 CALLS #6, DBGSNPARSE_EXPRESSION 
4 50 00 0037 MOVL RO, STATUS 
1B 55 Fs 037 BLBS status, 51$ 
13 12 00378 BNEQ $ 
53 DD 0037A 48$:  PUSHL R 
000000006 00 1 FB 0037 CALLS #1, DBGSNNEXT_WORD 
0 oD PUSHL R 
000000006 00 1 F CALLS #1, DBGSNSYNTAX_ERROR 
64 0 DO 0038C 498:  MOVL RO. (R4) 
50 04 Bo F 50$: MOVL #4; RO 
16 04 AE D1 $3 51$:  CMPL TYPE, #22 
18 2 9 BNEG $ 
50 6 p 99 MOVL § (NOUN_NODE), VALPTR 
OE 16 A } 9 CMPB gg (VALPIR) #i4 
‘eB A BEQL $ 
OE AD 9F OO3A PUSHAB P.ABB 
1 DD 003A PUSHL @# 
000289CA 8F DD OO3A PUSHL #166346 
000000006 00 3 FB OO3AD CALLS #3, LIBSSIGNAL 


. 9 
ogeasae MESES UHLEAE  WUGLL SASH EES. 


50 01 B0 00384 528: nove wi, RO 


; Routine Size: 952 bytes, Routine Base: DBGSCODE + 0000 
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1 7355-1982 Mie: 4 DEBUG. SRCSDBGEKADEP.055; 1 
GLOBAL ROUTINE DBGSSET_PAGE_PROT (PAGE_LIST, RESET_FLAG, MESSAGE_VECT) = 


ee 

! FUNCTIONAL DESCRIPTION: 
This routine accepts the page list data etrycture produced by dbgSnget pages 
or create_pag List and changes the protection of each page so specified 
to provide wrife access for DEPOSIT’s. As this is done, a new data structure 
is constructed in which each noge in the tree is replace with a node that 
has one more field. This extra field contains the old protection of the 
page so that it may be reset after the deposit. 
When called upon to reset the page protections, this routine uses the data 
structure it produced in the first step, and changes all page protections 
back to their original values. 

FORMAL PARAMETERS: 


PAGE_LIST - The address of a longword containing the address 
of the first node in the page list. 


RESET_FLAG - A longword age tentan true or false. If false 
protection is changed to allow write access. if 
true, erotort ton for each page is set back to 
the original value 


MESSAGE _VECT - The address of a longword to contain the address 
of a message argument vector for errors 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 


When NOT .reset_flag, a new page list is constructed. 
When .reset_flag, page protections are reset to original values. 


On failure, a message argument vector is constructed. 
ROUTINE VALUE: 
An unsigned integer longword completion code 
COMPLETION CODES: 
sts$k_success (1) = Success. Page protection set or reset. 
sts$k_severe (4) = Failure. Message argument vector produced. 
SIDE EFFECTS: 
NONE 


BEGIN 


7 
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; 639 7 FIELD PROT_NODE_FIELDS = 

; 640 18 

3 641 7? NODE _. INK = 9. ‘ 3. 1. ' Link field 

3 ots 77 PAGE NUM =i, 0, 32,0], ! ore? number field 

; 646 77 OLD_PROT = (2, 0, 8, 0 ' Old protection field 

3 ore 776 TES; 

: 646 775 

3 O66 7g LITERAL 

: of a PROT_NODE_SIZE = 3; ! Length of node in Longwords 
5 649 78 MACRO 

; ° 9 i 9 PROT_NODE = BLOCK Cprot_node_size] FIELD (prot_node_fields) %; 
: 6 é 7 ; LOCAL 

; $2? , PAGE_VECT : VECTOR (2); ! Vector to hold page numbers 
3 02? i 5 : Check to see if we are setting or resetting protections 

; §3 7 if .reset_flag 

; 658 788 THEN 

3; 659 0789 BEGIN 

; 660 790 

3; 661 791 ! We are reeves protection. Therefore, page_list contains the address 
g 666 Le } of a longword that contains the address of the modified page list. 
: 664 0794 LOCAL 

3 23? 139 NODE : REF prot_node; ! Modified page List node 

: 667 738 ! Obtain the address of the List. 

; 668 rs ! 

3; 669 7 node = ..page_list; 

; 670 800 

8h Be fat = south en en oneal 

3 ' Loop and rese e page protections 

: Bis og08 joe —-? 

; 674 804 WHILE .mode NEQA 0 

; 67? Oboe 4 oe BEGIN 

; 679 0807 4 

3; 678 808 4 ! Reset the old protection 

; 679 809 4 ! 

3; 680 10 4 page_vect £0} = .node C[page_num]; 

: oe 12 ? page_vect [1] = .node C[page_num]; ! We don't use a range 

; 13 4 SSETPRT (inadr = page_vect [0], prot = .node Cold_prot)); 

3 6684 14 4 ada ° P 

3 5 15 4 

: 1g ? Obtain the next node 

; one 18 4 node = .node Cnode_link); 

3 9 19 4 

; 690 END; ! End of loop 

; 69 : 

> 69% M4 

3 5 
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ereer tae P82 4 EARENE Shigseze Ve eO-28s 
BUILTIN PROBEW: 


! We ory <oengmng protections. Therefore, we must construct the modified 


page lis 
LOCAL 
° ! Temporary pointer 
NEW_NODE : REF prot_node, ! Modified List node 
OLD-NODE : REF dbg$Tink_node; ! Old List node 
H Recover the head node of the unmodified page List 


old_node = ..page_list; 

(Link = .page_list) = 0; 

! Loop changing the protection and es the new List 
Check to see if this page is already writeable, before we 

! attempt to set the presecs tent This fixes a bug in crying 
to deposit into a global section (mapped for write access 

! when changing page protections is not allowed. 

WHILE s9i.e node NEQA 0 DO 


IF WOT OT ROBEUCEREF (0) .EREF (1). old _nodelddgSt_t ink _node_valued) THEN 


Allocate a modified node and Link it 

new_node = dbgSget_tempnen (prot_node_size); 

-link = .new_no e: 

Link = new_node Cnode_link]; 

: Copy over relevant info 

new_node Cpage_num] = .old_node [dbg$l_link_node_value); 
Change the protection, if possible 


page_vect [0] = .new_node ([page_num): 
pase vect ab = .new_node pote num 3 


IF NOT SSETPRT (inadr = page_vect (0), 
C_uw 


prot = prt$c_uw, 
prvprt = new_node Cold_prot]) 


THEN 
BEGIN 


emessage_vect = dbg$nmake_arg_vect (dbg$_badtarget); 
Ae sts$k_severe; 


END; 
} Pick up the next node 
old_node = .old_node [dbg$l_link_node_link); 


P 23 
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tig P 


04 B83 


END; 
END; 
RETURN sts$k_success 
END; 


! End of loop 


T End of ‘ dboSset _page_prot 
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AX-11 Bliss-32 v4.0 
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SYSSSETPRT 
DBGSSET PAGE PROT, Save R2,R3,R4,R5 
SySSsE 3 TPRT, RS 


5 
RESES FLAG, 2$ 
aPAGE- LIST. NODE 


4(NODE), PAGE_VECT 
4(NODE), PAGE_VECT+4 


BCNODED, -(SP) 
PAGE_VECT 
fe SYSSSETPRT 
(WODE E), NODE 
@PAGE List. A _NODE 
PAGE CIS 
NR) 
D_NODE 


#0, #1, @4(OLD_NODE) 


#1, DBGSGET TEMPMEM 
EW_NODE, goat 
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eS T 
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; Routine Size: 149 bytes, Routine Base: DBGSCODE + 0388 


g 
1b-se “19 +13:03 AX-11 Bliss-32 V4.0-74 
1 ~3e0n 138% 94:13:92 DEBUG. SRC Sect xnpee.o39;1 
GLOBAL ROUTINE DBGSNPARSE_EVALUATE (INPUT_DESC, VERB_NODE, MESSAGE_VECT) = 


tee 
FUNCTIONAL DESCRIPTION: 
Parse network for the EVALUATE command. The poreing method used is that 
of ATN’s. This network constructs a command execution tree to be executed 
by dbg$nexecute_evaluate. 


FORMAL PARAMETERS: 


address of a standard message argument vector on errors 


; INPUT _DESC -A Longuord containing the address of . standar 

; string descriptor which reflects the input string 
: q VERB_NODE - A ongeere containing the address of the verb 

: (head) node of the command execution tree 

H+ MESSAGE _VECT - The address of a longword to contain the 


' 

{ IMPLICIT INPUTS: 
NONE 

t 

i IMPLICIT OUTPUTS: 
1 


On success, a command execution tree is constructed representing the parsed 
input command. 


i ee 


SSS3S33s 


On failure, a message argument vector is constructed. 
ROUTINE VALUE: 

An unsigned integer longword completion code 
COMPLETION CODES: 


sts$k_success (1) - Success. Input parsed and execution tree constructed. 
sts$k_severe (4) - Failure. Tree not constructed. Message vector 
constructed. 


SIDE EFFECTS: 
NONE 
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BEGIN 


INPUT_DESC : REF BLOCK C, BYTE), 
VERB_RODE : REF dbg$verb_node; 


: Define counted strings used at this level 
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; 81 BIND 

s $I 5 $05 .ARR SS = uot it evr (7, ‘ADDRESS'), 

; 81 DBGSCS"CONDITION = UPLIT BYTE (15, "CONDITION VALUE"), 
; DBGSCS_BINARY = UPLIT BYTE (6, ‘BINARY 

; BI GSCS_HEXADECIMAL = UPLIT BYTE (11, *HEXADECIMAL"), 

3 § pBGsC SOF TAL = UPLIT BYTE (5, ‘OCTAL'), 

; § DBGSCS_DECIMAL = UPLIT BYTE (7, ‘DECIMAL'), 

; “ DBGSCS_COMMA = UPLIT BYTE (1, dbg$k_comma), 

; 5 4 DBGSCS_CR = UPLIT BYTE (1, dbg$k_car_return), 

: $ 5 DBGSCS_ SLASH = UPLIT BYTE (1, dbg$k_slash); 

; 8 ; OCAL 

; 3 STATUS : Boyes return status 
: 95 NOUN_NODE : REF dbg$noun_node,  ! Object 

3 1 0 NEXT NOUN_NODE : REF dbg$noun_node, ! Next object 

; ¢ 1 ADVERB_NODE : REF dbg$adverb_node, ! Modifier 

: 8 § RADIX; ! Radix 

; ‘ 5 : : Create and Link a noun node 

3 B38 Me noun_node = dbg$get_tempmem (dbg$k_noun_node_size); 

3 +44 | verb_node [dbg$l_verb_object_ptr] = .noun_node; 

; 841 0 

: ate 71 Start with default radix 

3 B44 radix = .dbg$gb_radix(dbg$b_radix_output_over); 

: 84 

; Be : Accept any / switches. Start with plain jane evaluate - this may get changed. 
3 bcs verb_node [dbg$b_verb_composite] = evaluate; 

5 831 WHILE dbg$nmatch (.input_desc, dbg$cs_slash, 1) 

; it BEGIN 

; 55 ! Try to match legal switches 

3 33 SELECTONE true 

; 859 SET 

; 1 z Edbgianosch (,input_desc, dbg$cs_address, 1)] : ! address switch 
; § & yore node Cdbg$b_verb_composite] = evaluate_addr; 

; 865 : 

3 z Cdbgionotch (.input_desc, dbg$cs_condition, 1)] =: ! condition switch 
; 5 yore node Cdbg$b_verb_composite] = evaluate_cond; 

; 7 Edbgsonstch (.input_desc, dbg$cs_binary, 2)]) : 

: % 4 radix = dbg$k_binary; 


9 
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if 3 END; 
5 Cdbgsnaetch (. input desc, dbgScs_hexadecimal, 1)] =: ! Change radix to hex 


radix = dbg$k_hex; 
END; 


Cdbg$nmatch (.input_desc, dbg$cs_octal, 1)] : ! Change radix to octal 
radix = dbg$k_octal; 
END; 


em 73) (. input desc, dbg$cs_decimal, 1)] : ! Change radix to decimal 


10 
1} 
18 
14 
A? 
Hy aH cose = dbg$k_decimal; 
91 8 0 COTHERWISE) : ! Syntax error 
3 021 BEGIN 
89 0 ¢ message _vect = dbg$nsyntax_error (dbg$nnext_word (.input_desc)); 
894 0 RETURN sts$k_severe; 
895 024 END; 
$39 6 3 TES 
898 0 § 
899 0 8 END; 
se 8 
208 bs Se sure the user has supplied us with some sort of input after the verb. 
904 08 if _dbgSnmatch (,input_desc, dbg$cs_cr, 1) 
309 8 proven e_vect = dbg$nmake_arg_vect (dbg$_needmore); 
908 03 RETURN’ stsSk. severe; — Hp ; 
909 03 END; 
03 
04 


= 
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: Loop until input is exhausted. 
WHILE TRUE DO 
BEGIN 


Ooo: 
ene 


RERR 
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: Obtain the object of the evaluate based on the verb composite 
CASE, verb_node Cdbg$b_verb_composite] FROM evaluate TO evaluate_addr 
SET 


z 
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: Call the Expression Interpreter to obtain expression value. 


ee ee me me a me ea ee a ed ed nd od od dd od dd = od 
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Cevaiuate) : 
STATUS = DBGSNPARSE EXPRESSION (, INPUT gsc. 
-DBG$GB_RADIXCOBG$B_RADIX_INPOTJ, 
NOUN_NOBDE CDBG$L_NOON_VALOE), 


14-Sep-1 DEBUG. SRC JDBGEXADEP.8 


| m9 | 
ORGERA eP 1930071986 94:13: ; AXx-11 Bliss 32 Xpe07595.4 Page At 


; g 1 } 60 TOKENSK_TERM_COMMA, .MESSAGE_VECT); 
3 ¢ : 96 Call Address Expression Interpreter. 
; 935 1064 Cevaluate addr) : 
3 9 1065 STATUS = DBGSNPARSE_ADDRESS (. INPUT gest, 
; 9 1966 NOUN_ NODE copes. NOUN_ VALUE 
; 938 106 .DBGSGB_RADIXCOBG$SB_RADIX_ INPUT | 
; 939 1068 TOKENSK-TERM_COMMA,~ .MESSAGE_VECT); | 
; 940 198 
; 941 1070 TES; | 
; arg 197) 
3; 94 1 if 
3; 944 107 ! Check the return status. 

D4 945 1074 ! i 
; 94 1075 SELECTONE .status OF 
; 94 1976 SET 
: 948 107 
: 949 1078 

; 950 1079 ! If successful, then continue. 
3; 951 1080 : 

3 226 1081 Csts$k_success]: 
; 95 10e6 4 BEGIN 
3; 954 1083 4 ; 
3 939 1084 END; 

; 956 1085 

3; 957 1086 

; 958 1087 ! If a warning is returned, a comma may have been discovered in the 

3; 959 1088 ! input stream. Check for this. If there is no comma, a oyntex error 

; 960 1089 ! has occurred. If a comma is present, there must be more input or else 
3 sd IO error. If all is OK, then Link in another noun node. 
; 368 1096 Csts$k_warning): 
: 964 1093 4 

; 965 1094 4 IF NOT dbg$nmatch (.input_desc, dbg$cs_comma, 1) 

; 966 1095 4 THEN 
3; 967 1096 BEGIN 
3; 968 1097 emessage_vect = dbg$nsyntax_error (dbg$nnext_word (.input_desc)); 
; 969 1098 RETURN sts$k_severe; 

; 970 1099 4 END; 

ie 14! 1100 4 IF dbg$nmatch (.input_desc, dbg$cs_cr, 1) 
; 4 1101 4 THEN 

3; 87 1106 BEGIN 

; 974 113 -message vert = dbg$nmake_arg_vect (dbg$_needmore) ; 

: 975 1104 RETURN sts$k_severe; 

3 376 1105 4 END; 

3 OF 11 4 next_noun_node = dbg$get ce (dbg$k_noun_node_size); 

: 978 119 4 noun_nodefdbg$l_noun_Cink] = .next_noun_node; 

; 979 1108 4 noun_node = .next_noun_node; 

: 980 1109 END; 

3; 981 1110 

3; 9 ; 1141 

3 oa Wig Anything else, return severe error. 

: 985 1114 COTHERWISE): 

; 9 1115 4 

3; 9 1116 4 RETURN sts$k_severe; 
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6-Sep-1984 01:13:03 AX-11 Bliss-32 V4.0-74 

27808-1382 03:13:93 DEBUG. RCISBCEXNDED. B39; 1 
END; 

TES; 


} Check for exhausted input. 


ir dbgSnmatch (. inoue. desc, dbg$cs_cr, 1) 0 
THEN - input_ “descldsc$w “LéngthJ EOL 0 


EXITLOOP; 
END; ! End while Loop. 


: Check for a modifier. 

if _.radix NEQ dbg$k_default 

THEN 
BEGIN 
Construct a radix modifier node and Link to verb node 
adverb_node = dbg$get_tempmem (dbg$k_adverb_node_size); 
adverb_node (dbg$b_adverb_literal] = .radix; 
verb_node Cdbgs verb_adverb api"? 5. _adverb_node; 
adverb_node (Cdbg$l_adverb_link] 
END; 

RETURN sts$k_success; 

END; ! End of dbg$nparse_evaluate 
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-PSECT DBGSPLIT.NOWRT, SHR, PIC,0 


07 QOOA8 P.ABC: .BYTE 7 
53 53 45 52 44 44 41 SRAe eASCII \ADDRESS\ 
OF pe P.ABD: .BYTE 1 
56 SF GE 4F 49 54 49 46 GE GF 43 00081 eASCII = \CONDITION_VALUE\ 
08 9 P.ABE BYTE 
59 52 41 4E 49 4 C1 eASCII \BINARY\ 
0 C7 P.ABF BYTE 1 
4C 41 4D 49 43 45 46 41 58 45 & 8 eASCII] \HEXADECIMAL\ 
0 0 cS P.ABG: .BYT 
4C 41 54 43 4° 3 D4 eASCII \OCTAL\ 
07 009 P.ABH: .BYTE 
4C 41 4D 49 43 45 44 QOODA eASCII \DECIMAL\ 
C 1 8 €1 P ay YF BYTE 1, 44 
D 01 tat J: BYTE 1; 1 
i 1 OOES P. ABR: BYTE 1, 4 
DBGS$CS_ADDRESS= P.ABC 
DBGSCS-CONDITION= P.ABD 
DBGSCS_BINARY= P.ABE 


10 | 
DBGEXADEP 18. $ep-1984 3 AX-11 Bliss-32 V4.0-74 Page 31 
MOec000 14- =fee- 19 382 O31 :16: aT DEBUG.S RCioB BGEXADEP.B32;1 . | \ 
DBGSCS_HEXADECIMAL= P.ABF 
DBGS$CS-OCTAL= P.ABG 
DBG$CS-DECIMAL= P. ABH 
DBGSCS~COMMA= P.ABI | 
DBGS$CS-CR= P.ABJ 
DBGS$CS~SLASH= P.ABK | 
.PSECT DBGSCODE,NOWRT, SHR, PIC,0 | 
07FC 00000 e ENTRY DOGSNPARSE. RVALUATE. Save R2,R3,R4,R5,R6,- ; 0889 
5A 000000006 00 9€ 9002 MOVAB Daéscet 1 a R10 F 
59 000000006 00 9€ 0000 MOVAB DBGSNMATCH, R9 : | 
58 00000000' EF 9€E 00019 MOVAB ppeses. cRe “RB : 
4 0D 00017 PUSHL #4 ; 0966 | 
6A 1 FB 00019 CALLS #1, DBGSGET TEMPMEM : 
53 0 pO 0001C MOVL RO, NOBE ; | 
54 08 AC DO 0001F MOVL VERB AN NODES Ra > 0968 
08 Ad 53 D0 900¢3 MOVL § NOUN"NODE, 8(R : | 
55 000000006 00 9a 00027 MOVZBL Dacste PeoIKee, > RADIX : 0973) 
01 Ad 01 90 b00¢¢ MOVB (R4) : 0978 | 
52 04 AC 00 000 MOVL TNbUT DESC, R2 + 0980. 
01 OD 90056 1$ PUSHL : 
02 AB 9F 00038 PUSHAB DBGSCS_SLASH : | 
52 DD 00038 PUSHL R : 
69 0 FB 00030 CALLS #3, DBGSNMATCH ; 
03 0 8 90049 BLBS RO, 2$ : 
OOBE 31 0004 BRW 10$ : 
01 DD 00046 28: PUSHL #1 : 0990. 
CS AB OF 00048 PUSHAB DBGSCS_ADDRESS : | 
¢ DD 00048 PUSHL $ 
69 03 FB 00040 CALLS #3, DBGSNMATCH : 
01 50 D1 00050 CMPL ~=sRO, #1 : | 
06 if 00053 BNEQ ; 
01 «AG 02 90 00055 MOVB #2, 1(R4) 3 0992 | 
DB 11 90099 3$: BRB 1$ > 0982 | 
01 DD 0005B 4$: PUSHL #1 s 0995 | 
CD 6A «OOF 0005p PUSHAB DBGSCS_CONDITION 3 | 
3¢ DD 90060 PUSHL : 
69 g FB 906¢ CALLS #3, DBGSNMATCH : 
01 0 01 0006 CMPL 0, #1 ; 
06 12 00068 BNEQ ; 
01 A 03 9 09 A MOVB #3, 1(R4) : 0997. 
C6 11 00 BRB 13 : 0982 | 
0 3 0070 5$: PUSHL #2 ; 1000 
DD AS 9F 0007 PUSHAB DBGSCS_BINARY : 
DD 007 PUSHL R : 
69 FB 9 7 CALLS #3, DBGSNMATCH ; 
01 p O7A CMPL wi : 
‘ 70 BNEQ 3 | 
55 D 7F V ". RADIX : 1002 
- 11 BRB 1 : 0982 | 
1 po 68: PUSHL #1 : 1005 | 
E46 AB OF PUSHAB DBGS$CS_HEXADECIMAL ; 
52 DD 9 PUSHL R : 
69 03 FB 000 CALLS #3, DBGSNMATCH ; | 


10 | 
1bese “19 13:03 AX-11 Bliss-32 v4.0-74 Page 32. 
1en8ep=3be 831882 | Mag Bhi ssecexapes.039;1 oe 
01 1 000 CMPL ~=—séRO, #1 : 
G2 ga po 
55 0 D 909 MOVL #16, RADIX + 1007) 
9E 1 3 BRB 1$ ; 0962 
01 po 009 7$ PUSHL #1 + 1010. 
FO AB 9F OOO9A PUSHAB DBGS$CS_OCTAL : 
DD 00090 PUSHL R : 
69 FB 009 CALLS #3, DBGSNMATCH : | 
01 D1 00 Ag CMPL =seRO, #1 ; | 
0 if OOA BNEG : 
55 8 DO 000A7 MOVL #8, RADIX +1012) 
A 11 0 AA BRB 1$ ; 0982 | 
1 DD OOOAC 8$: PUSHL #1 + 1015) 
F6 AB 9F OOOAE PUSHAB DBGS$CS_DECIMAL : 
52 DD 00081 PUSHL : 
69 g FB 000B3 CALLS #3, DBGSNMATCH : 
01 0 D1 00086 CMPL~=s RO, #1 : 
05 if 0089 BNEG 9 ; | 
55 OA 00 00088 MOVL #10, RADIX : 1017 
99 11 OOOBE BRB 3$ + 0982 | 
52 DD 000C0 9S: PUSHL  R2 + 1022 
000000006 00 01 FB 900¢¢ CALLS #1. DBGSNNEXT_WORD : 
50 oD 000C9 PUSHL : 
000000006 00 gi FB 00¢8 CALLS #1, DBGSNSYNTAX_ERROR : 
0 11 0000 BRB 17$ : 
01 DD 000D4 10$:  PUSHL #1 > 1033) 
0104 8F ®68B 000D6 PUSHR #*M<R2,R8> : 
69 03 FB OOODA CALLS #3, DBGSNMATCH ; 
57 50 34 000DD BLBS_— RO, : 
50 000000006 00 9A O00EO 11$: MOVZBL DBG$GB_RADIX, RO + 1058 
01 01 01 Ad 8F O00E7 CASEB. 1(R4), #1, #1 + 1049 
0016 0004 QOOOEC 128: «WORD 13$-1¢8,- ; 
0c aC oD O0F9 13$: | PUSHL MESSAGE_VECT + 1060 
01 DD OOF PUSHL : 1059 
09 8B O0F5 PUSHR #*M<RO,R3> : 
32 DD OO0F PUSHL 3 
000000006 00 0S FB 900F9 CALLS #5, DBGSNPARSE_EXPRESSION ; 
10 11 00100 BRB ; 
0c AC DD 0108 14$:  PUSHL MESSAGE_VECT > 1068 
gi DD 0010 PUSHL #1 + 1066 
0 DD 00107 PUSHL : 1067 | 
0c 6B 001 PUSHR #*M<R2,R3> > 1066 | 
000000006 99 FB 1 CALLS #5, DBGSNPARSE_ADDRESS : | 
DO 00112 15$:  MOVL RO. STATUS : | 
01 D1 ou CMPL STATUS, #1 : 1081 | 
45 13 0011 BEQL : 
7 D5 OO1IA TSTL STATUS : 1092 | 
D 12 O011C BNEG 19$ ; 
1 pp 1 PUSHL #1 > 1094. 
FE ABS 9F 001 PUSHAB DBGSCS_COMMA ; 
52 DD 001 PUSHL R : 
69 FB 1 CALLS #3, DBGSNMATCH ; 
95 E9 001 BLBC =—=_—s«aRO,.- 9 ; 
1 DD 00128 PUSHL @ : 1100. 
0104 fF BB 00120 PUSHR #*M<R2,RB> 3 
69 03 FB 00131 CALLS #3, DBGSNMATCH F 
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00028000 


oo — 
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0104 
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on 
nO 
SOPFVUMOOCOMAOSMNODO OOM ood—WNo0w 


PUSPATI 
SRUMAOIAN ACD OA AMGOOVMOSOEOUE 


01 

6A 

60 

046 AG 
08 D4 00 
50 00 
04 00 


; Routine Size: 394 bytes, Routine Base: DBGSCODE + 044D 


b-5 10 


ep-1 
at 


16$: 
17$: 
188: 


19$: 
20$: 


218: 


228: 


o8¢ 93:13 13: ; AX-11 Bliss-32 V4.0-74 


DEBUG. § RCSD BGEXAD DEP.B32;1 


Hib Of 
DBGSNMAKE _ARG_VECT 
Ay: @MESSAGE VECT™ 


ws 
#1, DBGSGET TEMPMEM 
NEXT _N 


NEXT NNOUR NODE, 8(NOUN_NODE) 
WERT NOUN— “NODE, NOUN_NODE 


#4, RO 


rT 
#*M<R2,RB> 
#3, DRGSNMATCH 


ip 


is #1 
228 


DBGSGET_TEMPMEM 
RABI CADVERE NODE) 
pvERé_NO NODE, 4TR4) 

BCADVERD. AS oe) 


: 
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; 19 ¢ i} 9 ! GLOBAL ROUTINE DBGSNPARSE_EXAMINE (INPUT_DESC, VERB_NODE, MESSAGE_VECT) = 

3 + 4 11 ¢ 1 !e4 

3 3 5 i ? : : FUNCTIONAL DESCRIPTION: 

; 10 8 1155 1! ATN parse network for the EXARING verb. The network constructs a command 
; 1028 11 $ 1! execution tree consisting of a Linked List of command operands which the 
: 13 3 i : execution network accepts as input to perform the command. 

; 19 1 1188 : } Three adverb nodes are ALWAYS created and Linked. They are in the order: 
3 Hi : 1161 1! 1) Type node - This node contains override or default type info. It may 
3 3 1306 7 have the value of dummy_type when the source of the 

; 1035 1165 1! EXAMINE is described by a or teary descriptor and 

3 1% ° 1392 ’ no override type has been specified. 

3; 10 1166 1! 2) Radix node = The radix to be used in outputting the value. 

; 1039 1167 1! For implementation Level DBGSK_DEFAUL? is 

: 1040 1168 1: translated to the real radix. 

3 1041 1192 1; 

; eg 1170 1! 

3 104 1c) UF 3) Mode node - Either true or false. True means symbolic output. False 
3 1044 1126 1! means no symbolic output. 

3; 1045 1175 1! 

; 1046 1174 1 ! FORMAL PARAMETERS: 

3: 1047 1175 1! 

; 1048 1176 1! INPUT_DESC - A longword containing the address of the command 
3 be Vee ; } input descriptor 

3; 1051 1179 1! VERB_NODE - A Congyerd cenesen the address of the command 
3 1926 Ht + ' execution tree verb (head) node 

3 1054 1188 7? MESSAGE_VECT - The address of a longword to contain the address 
3 1922 Bt : of a standard message argument vector on errors 
3 1057 1185 1 ! IMPLICIT INPUTS: 

; 1058 1186 1! 

: 1059 1187 1! NONE 

: 1060 1188 1! 

3 1061 1189 1°! IMPLICIT OUTPUTS: 

3 1N86 1190 1! 

3 1997 112) ! On success, the command execution tree is constructed. 

; 1903 1138 \ : On failure, a message argument vector is constructed or obtained. 

; 1969 1195 1 ! ROUTINE VALUE: 

: 1068 1196 1! 

3 1069 1197 1! An unsigned integer longword completion code 

: 1070 1338 1! 

3; 1071 11 1 ! COMPLETION CODES: 

3 1976 1300 1! 

3 35 ' 1 ' : sts$k_success (1) - Success. Command execution tree constructed. 

3 1075 1 08 1! sts$k_severe (4) - Failure. Error encountered. Message argument 

; 1976 1 1! constructed and returned. 

3; 107 1 33 1! 

3; 1078 1 1 ! SIDE EFFECTS: 
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REF BLOCK C ,BYTE), 
: REF dbg$verb_node; 


gs used at this level of parsing 


w 
> 
2 
2 a) > 
o = 3 
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3$%3, fo oe ccc meee =... 
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LINK Pointer 
SYM_OVERRIDE_PRESENT, 

INP_RADIX, $ Input radix 

ADIX, Radix for numeric Literals 


i Type of source 
! IF true then SYMBOLIC EXAMINE 
! TRUE if we are parsing 


' 
' 
TYPE : 
SYMBOL FLAG |: 
; the lower pc in the 
' 
' 
' 
f 
a 


LOWER_PC_FLAG, 


; ec range. 
SOURCE FLAG, ! TRUE for EX/SOURCE 


MSG_TERT, ! TRUE for EX/CONDITION_VALUE 
LENGTH ' Length of source 

ADDRESS : VECTOR (2), ' Address of source 

STATUS; ' Return status 


Create and Link a noun node to contain the target 
noun_node = dbg$get_tempmem (dbg$k_noun_node_size); 
verb_node Cdbg$l_verb_object_ptr] = .noun_node; 


Initialize target type and Length 


= SRWIF APU ODD WANE ODO aH 


type = -1; ! <1 indicates that we have not found an override type 
Length = 6; 


: Initialize the symbolic = nosymbolic flag and source flag 


oo0o0no 
MEWN—OO 


symbol flag = dbgSnget _mode 0; 
sym_override_present = FALSE; 
source_flag = FALSE; 

msg_text = FALSE; 


Initialize the lower_pc flag 


SaNF 


lower_pc_flag = TRUE; 
Initialize the radix. 


inp_radix = .dbg$gb_radix(dbg$b_radix_input); 
redtn = sod aber aaTcldbgter eeaTe eutbut wear): 


' accept ony command switches. We start out with a verb composite representing 
a plain EXAMINE. This may change as a result of command or user set overrides. 
We changes the compos {te to EXAMINE_INSTRUCTION if we find /INSTRUCTION, 
[oe connestte is changed to EXAMINE _CONDITION_VALUE if /CONDITION_VALUE 
ound. 


PAA ALAA AIA IPI PIPPI NIPINIPININI NI PIPPIN PIPIPINIPIPIPUPIPPIPIPIPIPUPIPINININUNIND 
CO COCO COCO COCO COCO CO NII Sueurie pie eat 
BONAOUSWN—OOc mse —OOoe w 


SBUSAE UO 


REINS eine D ke eb ete OES e ese eseess 


wr 


wu 


verb_node (dbg$b_verb_composite] = examine; 
ILE dbg$nmatch (. input desc, dbg$cs_slash, 1) 


eee me ee ch ee ee ee me me ae a ek ee ke ee a ed ed ed ed ed od = = = = 2 
ee eee 
em ee me em me me me a me ee ed ed ad 2 od ot ot oe 


Be Se Se Se Be Se Se Se Se Se Se Se FF Se Se Be Se Se Se Ss Ge Ss Ge Ge Se Ge Se Ge Ss Se Ss Se Se Se Bs Ss Se Se Se SF Ss SF Se Ss Se Ss Se Os Se Ss Se Se Se Se Se Sees 


TD a ae a ae at a 


SOONOUS WN Oo 


BEGIN 
SELES TOME true 


H 10 
voe=000" e=3ep=198e 13:10:54 — EoeeuG. SacSbacexnver 085.1 
SET 
Cdbgsnastch (. input desc, dbg$cs_instruction, 1)] : 
type = ds $k _dtype_zi; 
oe gy = dbgsk. default; 
END; 


ta 


Cebgponetch (. input desc, dbg$cs_byte, 1)] : 
type = dsc$k_dtype_b; 
(tngth = byté_ tength: 
END; 
Cdbg$nmatch (.input_desc, $cs_word, 1)] : 
SBEGIN z itis 


type = dsc$k_dtype_w; 
Length = word “Length: 


SOUR APU ODos OU Uw 


PAA & PMA & BE PMMA & BE EMA BF PWIA B&B FMW BF PAE BF PIE BEB Pt 


Rdbapragtes (.input_desc, dbg$cs_condition_value, 1)]: 


type = dsc$k_dtype_l; 
tength = Long t® Length; 
msg. text = 


93 
5 
9 
99 
00 
4! 
08 
05 
O7 
08 
09 
10 
1] 
18 
4G 
y 
17 
18 
19 
0 
1 
§ 
4 
5 
6 
7? 
8 
9 
° 
g 
5 


Cdbg$nmatch (.input_desc, dbg$cs_date_time, 2)): 
BEGIN 


type = ty ee dtype_adt; 
Length 


Ldbgfoneeee (.input_desc, dbg$cs_psl, 3)]: 


type = om aotype. os 
Length ‘po 9. Lengt 
vere “node dbg$b_ oer composite] = examine_psl; 


>>>r>Pr 


PARED AMUN & 
MEWS OONOUES WO OONOUS WO 


Cdhg$nmatch (.input_desc, dbg$cs_psw, 3)]: 
SBEGIN ‘ es P 


type = dsc$k ot ypee wus 
ngth = word_| 
vert node dbase. — composite] = examine_psw; 


Coabnnse (.input_desc, dbg$cs_longword, 1)] : 
type = dsc$k_dtype_l; 
Length = long_ (ength: 


Cdbg$nmatch (.input_desc, dbg$cs_ac, 2), 
ezonstch (,input-desc, dbg$cs_ascic, *5)): 


oo 1 
J 4 
Oo 1 
3 3 
3 7 
3% 
oO 1 
oO 4 
a 4 
a 1 
8 1 
© 1 
oO 1 
* 1 
3 
3 1 
o 1 
; 1 
oO 4 
J 4 
6 1 
eo 1 
J 1 
os 1 
oe 1 
oO 1 
se 1 
3% 
3 1 
2s 
. 1 
oO 1 
eo 1 
31 
J 1 
. 1 
es 1 
J 1 
3 7 
3; 1 
e 1 
e 1 
* 1 
vw 1 
: 1 
oe j 
eo 1 
o 1 
. J j 
we j 
* 1 
z 3 
oe 1 
a 1 
— 1 
31 
3 % 


ke a a a tt at at at nt a a et a td ss 2 a a ts 1 2 a 
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type = dscS$k_dtype_ac; 


Length = byté_length; 
be = dbgSk_default; 


Cdbg$nmatch (.input_desc, dbg$cs_aw, 2), 
abgsnmatch (linput-desc, eibcacnet ie. 5)]: 


type = dscS$k_dtype_vt; 
Length = word. length; 
conse = dbg$k_default; 


Cdbg$nmatch (.input_desc, dbg$cs_az, 2), 
Coaroneren (.input_desc, dbg$cs_asciz, 5)]: 


type = dsc$k_dtype_az; 
Length = byté_length; 


ooo 


wn 


radix = dbg$k_default; 
END 


CdbgSnmatch (. input desc, dbg$cs_ad, 2), 
te 73 ae (. input desc, dbg$cs_ascid, 5)]: 


type = dbgSk_dtype ad; 
Length zs2 Long Length; 
ces x = dbg$k_default; 


Cdbg$nmatch (. input desc, dbg$cs_ascii, 1)] : 
SBEGIN ee s 


5 
$8 
é 
$3 
e 
ee 
68 
9 


! Accept the °:* and integer. If there is no colon, we assume 
a length of 4 


if NOT dbg$nmatch (.input_desc, dbg$cs_colon, 1) 


BEGIN 
Length = 0; 


ELSE 
BEGIN 


: We found the colon. Accept the integer 
if NOT dbg$nsave_integer (.input_desc, length) 

RETURN sts$k_severe; 
: Check to see that the length of the ascii examine is not 0 
if .length GTRU 2048 
THEN 

BEGIN 

num_desc : dbg$stg_desc; 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


5 
: 
5 
; 


me a a a tt at at a tk tk at ns at a st st 8 a a 4 8 Wd a ts 9 a 8s ss 
me ee ee a i ii a at at at = 8 2 = = a a 


4 
4 
“ 
4 
4 
4 
4 
4 
& 
4 
4 
4 
G 
& 
4 
& 
4 
4 
4 
4 
fe 
4 
4 
4 
5 


DPAEX_D DDD AAAS SE IIIT ES BP BS EEE BHA BF PII E B  PMMIAR FF PF WMHAUL EE 


GE XADEP Taye -1 1:13:03 AX-11 Bliss-32 V4.0- Pa 9 
vos =30071 382 93] 16: A DEBUG. SRC RCSDBGEXADEP. 533.1 - a 
funn “Gese asc 2 -bongen2 =! bpuit TYPE (°0'); | 

= 
-message vert = “GogSnmake. arg_vect (dbg$_ invnumber, 1, num_desc); 
A sts$k_severe; 


OONAOW 


END; 
type = dsc$k_dtype_t; 
radix = dbgSk defadlt; 
END; 
Cebssonatch (.input_desc, dbg$cs_default, 3)] : 
radix = dbg$k_default; 
END; 


NNN 


PAEAQOEMNMAAMGININIIUI ES BBE PPE EE PW 


WO OCONAUES WN" OVOOVNOUS WO 


Cdbgirnerch (. input desc, dbg$cs_binary, 2)] : 
radix = dbg$k_binary; 
END; 


Cdbptemerch (.input_desc, dbg$cs_octal, 1)] : 
radix = dbg$k_octal; 
END; 


Edbaponseeh (.input_desc, dbg$cs_d_float, 2)] : 
type = dsc$k _dtype_d; 
+ gly = dbgSk_ default; 
END; 


LEAF 


PAA & FAA & FUMIE FAAS FW & OB PIF FW FAN PWIA FFP NOOAO 


ao 


3 Cdbgsnaatch (.input_desc, dbg$cs_decimal, 1)] : 

$ radix = dbg$k_decimal; 

A END; 

7 CdbgSnaetch (.input_desc, dbg$cs_hexadecimal, 1)] : 
75 radix = dbg$k_hex; 

76 END; 

, 


FY oy oY ot ot ot ot ot ot ot tl tt et et tt tt 


~ 
ooo 


Cdbg$nmatch (.input_desc, dbg$cs_symbols, 1)] : 
BEGIN 


symbol _ flag = true; 
syns override_present = TRUE; 


MW 


Cdbg$nmatch (.input_desc, dbg$cs_nosymbols, 1)] : 
BEGIN 


symbol _ flag = false; 
syn _override_present = TRUE; 


=O OONOUE WN 0 ODN UE WIN 9 ODNA UNE WN -2 9 ODNAOUSWN “OO OONAULS wT. 


me me ee me ee ee ce ee ee me ee ee ee me a ee ee ee em ee ee ee ee a a eed aed nd ed oe 
ee a me a ae a ed a ak ad dd = 8 = = 2 4 4 = 2 = = 8 = 0 a 


PRP LLL EEE 


~o 
part 


ss 


Cdbgsnastch (,input_desc, dbg$cs_source, 2)] : ! EX/SOURCE 


K 10 
GEXADEP 16-Sep-1 1:13:03 AX-11 Bliss-32 V4.0-74 P 40 
vos 13-80 8-138e 95:18:82 DEBUG. SRCIOBGEXADED.039s1 — (6) 
source_flag = TRUE; 

END; 


Cébgsnaetch (. input desc, dbg$cs_quadword, 1)] : 
type = dscS$k_dtype_q; 
length = 8; _— 


Fk 


Cdbg$nmatch (.input_desc, dbg$cs_octaword, 5)] : 
BEGIN 


type = dsc$k_dtype_o; 
Length s 16:7 _e 


Cdbg$nmatch (.input_desc, dbg$cs_float, 1) 


3 3 1 3 

3 ; ! 9 

: ie 

: ie 

; i ms 

31 1204 

3 3 1 b¢ 4 

3; 3 1 4 

3% 1 4 

: i | 

31 150 

31 1 38 dbg$nmatch (.input_desc, dbg$cs_f_float, fo): 

3 3 1509 4 BEGIN 

; : : \9 2 type © dsc$k_dtype_f; 

3 en = 4; 

3 ; 1318 4 radvx = dbg$k_default; 

31 1514 3 : 

3 : a Z Ldbginneten (.input_desc, dbg$cs_g_float, 1)] : 

3 1389 1319 4 type = ds¢Sk_dtype_g: 

3; 1390 1318 4 congth = 8; 

3 : H 1333 & fed x = dbg$k_default; 

3 139 1521 ; 5 

3: 1394 15 § Cdbg$nmatch (.input_desc, dbg$cs_h_float, 2)] : 

3; 1395 15 4 BEGIN 

3 1396 1524 4 type = dsc$k_dtype_h; 

3; 1397 1525 4 Length = 16; 

i] 38 13 $4 rad x = dbg$k_default; 

: 1400 15 ; ; | 
3 1401 15 5 Cdbg$nmatch (.input_desc, dbg$cs_packed, 2)] : ' a3.1 
3 1008 1530 4 BEGIN ' A3.1 
3; 140 1531 4 type = dsc$k dtype-: ' a3.1 
3 Vebe 1 ; ? radix = dbg$k_default; A - 
: 14 1534 4 ' Accept the ':' and integer. If there is no colon, use i a3. 
; Hy I 5 4 a Length or -1 to signal that we will have to find the length! A3.1 
3 t+ 12 ? } after its been converted from text. } A °f 
3 1410 1538 4 if NOT dbg$nmatch (.input_desc, dbg$cs_colon, 1) i 3.1 
erie 1346 § THEN BEGIN i Ags 
te IBLE iio RR 
> 1415 1 rk} 4 ELSE i a3. 
1213 1348 er i AS 
: 1418 1308 1 We found the colon. Accept the integer A “| 
+ 1420 1548 if NOT dbg$nsave_integer (.input_desc, Length) i ad. 


: Look up the symbol in the DEFINE symbol table. 
if DBGSDEF_SYM_FIND (UPLIT BYTE (ZASCIC ‘ZNEXTLOC'), 
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iN 1ergeei13be 95:48:82 HoNedG BALSSage Aces 35.1 ” a 
3: 1421 154 THEN ' A3.1 | 
$ 1° ¢ : RETURN sts$k_severe; } Q °} 
3 1? : : § H Check to see that the Length is within 0 and 31 } , of 
3 1? 8 1 : ; IF (.length LSS 0) OR (.Llength GTR 31) -} 
+ 1628 1 SIGNAL (dbg$_illpacsiz, 1, .length); i a3. 
3: 1429 1 $ 4 END; atin ’ ; AR! 
3 Fr : ; 3 3 END; ' A3.1 
3 14 § 1 $9 COTHERWISE) : ! Some flavor of user error 
3; 14 1561 4 BEGIN 
3 14 1 $¢ 4 Passage vect = 
3 1¢ 5 1267 ( If H gSnmatch (.input_desc, dbg$cs_cr, 1) 
: 16 1365 gg DOmehe_org_vect (dbg$_needmore) 
3 1439 1369 4 a al (dbg$nnext_word (.input_desc))); 
3; 1440 1568 RETURN sts$k_severe; 
3 1441 1569 END; 
; ieee 1570 
3 144 1571 TES; 
3 1444 1376 
3: 1445 157 END; 
3 rr | 1574 
3 144 1575 
3 1448 1576 IF .sym_override_present 
3 14469 1377 THEN 
3 1450 1578 BEGIN 
3 1451 1579 dbg$set_mod_lvl (override mode); 
: 1636 1580 dbgsgb_mod_ptrimode_ symbols] = .symbol_flag; 
1 rt? a 
: 1455 1888 !' Check for EXAMINE <CR>. If this is the case, we call the pseudo symbol 
3 1038 138% : interpreter to find the meaning of successor ourselves. 
3; 1458 15 IF dbg$nmatch (.input_desc, dbg$cs_cr, 1) 
3: 1459 1587 THEN 
3: 1460 1308 BEGIN 
3 1461 1589 LOCAL 
; 1ee6 1590 AE _DESC : REF dbg$aed, ! Address expression descriptor 
3 146 1591 SYMBOL _TYPE 
: 1464 1398 SYMBOL VALUE , 
nt stn 
: 1469 1595 
3: 1468 1298 MAP 
3: 1469 159 SYMBOL_VALUE: REF DBGSVALDESC; 
3: 1470 1398 
3 1471 1 LOCAL 
3 14 § 1 ) P 
3 14 1601 KIND; 
3 1474 1 § 
3 1475 1 
3 14 § 1 
3: 14 1605 
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tatty 13-8 8=138e 94:13:93 PraUG. che TDBGEKADES .03951 ’ (6) | 
47 6 KIND, SYMBOL_VALUE, 
‘7 607 DUMMY, DUMMYY 
re} ra IF .KIND EQL DEF INE_ADDRESS 
4 ¢ 919 KIND EQL DEFINE VALUE 
4 61 N 
4 ol¢ BEGIN 
485 61 
rt erg : Turn value descriptors into volatile value descriptors. 
488 616 IF .SYMBOL_VALUE CDBGS$B_DHDR_TYPE] EQL DB&GSK_VALUE_DESC 
$32 617 THEN 
4 oi8 BEGIN 
491 61 SYMBOL_VALUE CDBGSB_DHDR TYPE) = GOSSKV_VALUE DES: 
33 620 SYMBOL_ VALUE COBGSL VALUE POINTER] = 
49 621 -SYMBOL_VALOE COBGS$L_VALUE_VALUEO]; 
494 63¢ IF .SYMBOL_VALUE CDBGSB_VALUE_DTYPE) EQL DSCSK_DTYPE_V 
495 6 OR .SYMBOL_VALUE LDBGSB_VALUE_DTYPEJ EQL DSCSK_DTYPE_VU 
P| 624 OR .SYMBOL_VALUE [CDBGSB_VALUE_DTYPE) EQL DSCSK_DTYPE_SV 
rea ? 5 Oe teres itera DBG$B_VALUE_DTYPEJ EQL DSCSK_DTYPE_SvU 
499 6 5 SYMBOL_VALUE CDBGSL YALU POS) = 
500 628 ~SYMBOL_VALOE COBGSL_VALUE_VALUE1); 
501 629 END; 
ong 630 
50 631 ! We have found a matching DEFINEd symbol. 
504 O36 ! Copy the descriptor into tenporary memory. 
202 ° ? (Fourth parameter FALSE <=> copy into tempmem). 
507 ret DBGSNCOPY_DESC (.SYMBOL_VALUE, SYMBOL_VALUE, 
508 6 DUMMY, FALSE); 
509 637 END 
638 
63 ELSE 


rs 
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SIGNAL (DBG$_NOCURLOC) 


me tk a a at tk a ak i Ba a tt at at a nt a = to = a 2 SS Sh ts SY FS os SF SH HS HY 
ee ee ee a ad a es et a a 8 st 2 2 st bt 


510 

313 8 

218 641 ELSE 

218 O66 SIGNAL (DBG$_NOCURLOC) ; 

218 644 noun_node Cdbg$l_noun_value]_ = .symbol_value; 
51 645 noun_node ([dbg$l_noun_value2] = .symbol value; 
518 646 END 

519 64 

5 ° 23 ELSE 

5 ¢ $20 ' Loop through the examine List 

524 636 WHILE TRUE DO 

3 5 $3? BEGIN 

: $ tH ! Check for exhausted input 

5 5 $39 If dogsnaatch (.input_desc, dbg$cs_cr, 1) 
5 638 OR .input_descldsc$w_length] EGL 6 

H 1 65 THEN 

3 § 269 EXITLOOP; 

5 662 ' Input left. Let the AE] deal with it. 
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' 
if .LOWER_PC_FLAG 
THEN 


Sooo 
NOUS WwW 


SOLER 


SIGNAL (DBG$_NEEDMORE) ; 
Link in another noun node 
noun_node[dbg$l_noun_link] = dbg$get_tempmem (dbg$k_noun_node_size); 


noun_node = .ncun_node[dbg$l_noun_linkJ; 


' Set LOWER_PC_FLAG back to TRUE for the next 
} PC range in the List. 


iower_pc_flag = TRUE; 
END =P. ° 


BEGIN 
2 6 STATUS = DBGSNPARSE atte DESC 
40 68 NOUN NODE COBGSL_NOUN_VALUEJ, .INP_RADIX, 
re 4 TOKERSX TERM_COMCOL, <MESSAGE VECT); 
4g 29 NOUN_NODECDBGSL_NOUN_VACUE2ZJ~= .NOUN_NODECDBGSL_NOUN_VALUE); 
Sts I ELSE 
45 7 STATUS = DBGSNPARSE at ge DESC, 
2%$ 74 N N DBGS$L_NOUN_VALUE2], .INP_RADIX, 
ate Le TOKERSK_TERM_COMMA, .MESSAGE_VECT); 
549 i IF .status NEQ sts$k_success 
550 a THEN 
551 7 IF .status EQL sts$k_warning 
i 5 Meio 
2e¢ Hy ' Check f 
$36 § aqhuanit heat aed: oe jot 
nmat ° t ° ° 
ger HH a g$nmatc nput_desc g$cs_comma 
360 38 BEGIN 
561 89 
a06 is } Check for end of Line after the comma. 
2 3 if dbg$nmatch (.input_desc, dbg$cs_cr, 1) 
94 
95 
96 
97 
98 
99 
00 
Bt 
08 
04 
e 
08 


So 


DWONOUSWN OO 


. Lower _pc 


SNS Sooo 
SES SANSA SSSSLSSF 


SSSLERLAN 


IF ensetch (.input_desc, dbg$cs_colon, 1) 
lower_pc_flag = FALSE 


BEGIN 

-message_vect = dbg$nsyntax_error( 
dbg$fnext_word (.input_desc)); 

RETURN sts$k_Severe; 
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END; | 
END ! check for comma 


vase I 


; i 
9 
9 


000 
mis 


ELSE 


SNS 


WANA WWW Iinononononornornorornor 


RETURN sts$k_severe; 


o 
fe) 


Set up for next time around loop 
END; ! while loop 
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| 
| 
| 
The first adverb node we set up is the type node. We start by setting up a 
dummy type. If we find a real type, we change the adverb value. 

| 


33 


if .msg_text 
THEN 


! 

4 i 

5 ! 
608 6 ' We check to see if type is instruction. If so, we change the verb 
rs i composite to an EXAMINE_INSTRUCTION. 
611 9 i Override types and default types apply, as well as command override 
ei UE es Seong 
614 4e adverb_node = dbg$get_tempmem (dbg$k_adverb_node_size); 
616 44 verb_node CdbgSt verb_adverb_ptr] = .adverb_node; 
af 4 $2 adverb_node [dbg$b_adverb_liferal] = dummy_fype; 
619 <3 
ost “8 Obtain the address expression descriptor 
632 39 addr_exp_desc = .noun_node ([dbg$l_noun_value]; 
ost 26 
625 5 ! Check for command override 
O36 54 ‘ 
627 55 IF .type NEQ -1 
628 26 THEN 
629 5 BEGIN 
6 58 adverb_node (dbg$b_adverb_literal] = .type; 
$3 +4 adverb_node (dbg$l_adverb_value] = .length; 
$34 61 ! Check for EX/CONDITION_VALUE. 
gee 85 
3% i 
6 5 


iw 
~ 
aon 


. verb_node Cdbg$b_verb_composite] = examine_condition_value; 


eS SS LT LL LLL __._._ ee ee ee eee See Se 
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6 66 

639 67 

640 68 ELSE 

641 44 BEGIN 

os6 0 

7 re : There was no command override. Check for a type/override. 
645 7 IF dbg$nget_override type (type, length) 

646 7% THEN , ° 

64 75 BEGIN 

648 76 adverb_node ([dbg$b_adverb_literal] = .type; 
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: 1649 1777 4 adverb_node (Cdbg$l_adverb_value] = .length; 

: 1650 1778 & ‘Sah pate tates ing ° 

3; 1651 1779 3 ELSE 

; 16 ¢ 1780 4 BEGIN 

; 165 173) 4 

3 1928 17 § & ! There was no type override. We supply a type based on the contents 
; 1655 1783 4 ! of the address expression descriptor, current location type, 

: 1996 1788 2 and/or default type. We may also change the verb composite value. 
5 1658 1786 & i Check for a current loc type. If this is other than 0 or notype, 
; 1922 ree 2 then we use this type for display. 

; 1862 1785 : dbg$nget_potential_type (type, length); 

> 166 1791 4 IF _.type NEQ dbg$k_notype AND .type NEQ 0 

: 1664 1792 4 THEN. oe 

: 1665 1793 5 BEGIN 

: 1666 1794 5 adverb_node popasp.cdverd_ literal = ,type; 

; 1667 1795 5 adverb_node ([dbg$l_adverb_value] = .length; 

3; 1668 1796 4 3 

3 1669 1797 3 END; 

3; 1670 1798 END; 

3 1671 1799 

3 1676 1800 
3: 167 1801 ! The adverb type node has been set up. and the command has been classified 
3: 1674 1806 ' as either AMINE, EXAMINE_INSTRUCTION, EXAMINE _CONDITION_VALUE, or 
3; 1675 180 ! EXAMINE_REGISTER. The source has been placed in the first noun node. 

3 1678 1308 : Now we construct adverb nodes for radix and mode. 

3 1678 1806 link = adverb_node Cdbg$l_adverb Link); 

3 + 24 td adverb_node = dbg$get_tempmem (dbg$k_adverb_node_size); 

3 1681 1809 .link = .adverb_node; 

3 1086 1810 adverb_node (dbg$b_adverb_literal] = .radix; 

$ 1oar + ae dbg$gl_cmnd_radix = .radix; 

F He 3 1818 Create as adverb node for the mode (symbolic or nosymbolic). 

3 1687 1815 Link = adverb_node (dbg$l_adverb Link); 

: 4 13i$ adverb_node = dbg$get_tempmem (dbg$k_adverb_node_size); 

3 1690 1 \8 elink = -géverd node: 

3 169) ! ? adverb_node (dbg$b_adverb_literal] = .symbol_flag; 

; 1898 1821 IF .source_flag 

> 1694 H+ ; TH 

3 1oz2 : ? verb_node[dbg$b_verb_composite] = examine_source; 

: 1899 18 5 RETURN sts$k_success; 

3 1698 1826 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


08 4434 P.ABL: .BYTE 11 3 
4E 4F 49 54 43 55 52 54 53 4E 4 00E8 eASCII = \INSTRUCTION\ : 
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13-88-1382 03:13:93 DEBUG. SRC IDBGEXADEP.B39; 1 | 
F3 P.ABM: .BYTE 8 . : 
43 469 4C 4F 42 4D 59 eS if mn ASCII \ YMBOLIC\ : 
43 49 4C GF 42 4D 59 53 OF aE OFD gat: “ASCII \NOSYMBOLIC\ ; 
59 52 41 4E 49 c3 1 of oad “ASCII \BINARY\ F 
4C 41 54 63 GF OO10F ° <lASCIZ \OCTAL\ : 
07 00114 P.ABQ: ‘BYTE : 
4C 41 4D 49 43 45 a4 115 + 8 ASCII \DECIMAL\ ; 
4C 41 4D 469 463 465 44 41 5B 45 cs o115 pie: ASCII \HEXADECIMAL\ : 
54 4C 55 41 46 45 a4 4 3 pe: “ASCII \DEFAULT\ F 
43 o¢ 0131 ©  <ASCII \AC\ ; 
05 00133 P.aBU: ‘BYTE : 
43 49 43 53 41 001 “ASCII \ASCIC\ ; 
02 139 P.ABV: <BYTE : 
44 4&1 OO13A ASCII \AD\ ; 
05 0013C P.ABW: <BYTE : 
44 49 43 53 41 00130 “ASCII \ASCID\ : 
57 41 0014 ASCII = \AW\ : 
05 00145 P.ABY: BYTE F | 
57 49 43 53 41 00146 "ASCII = \ASCIW\ : 
02 00148 P.ABZ: .BY : 
SA 41 do14¢ “ASCII \AZ\ F 
05 OO14E P.ACA: -BYTE ; 
SA 49 43 53 41 00145 "ASCII = \ASCIZ\ : 
05 00154 P.ACB: .BYTE : 
49 49 43 53 41 00155 “ASCII \ASCIIN ; 
OF OO15A P.ACC: ‘BYTE 1 : 
45 55 4C 41 S56 SF 4E 4F 49 54 49 464 4E GF 43 0158 vie ASCII \CONDITION_VALUE\ ; 
4c 53 g 0168 © ~~ SASCII. «\PSL\ : 
Q OI6E P.ACE: .BYTE : 
57 53 16 “ASCII = \PSW\ ; | 
04 91 P.ACF: .BYTE ; | 
45 54 59 42 0017 “ASCII \BYTE\ : | 
o4 O17 P.ACG: .BYTE 4 : 
44 52 4F 57 00178 "ASCII \WORD\ : | 
47 4E 4F ac 17D ASCII \LONG\ ; 
0 181 P.ACI: :BYT : 
44 52 GF 57 44 41 55 31 2 Age “ASCII \QUADWORD\ ; 
44 52 4F 57 41 54 43 GF 0018 pin ASCII \OCTAWORD\ : 
“aaa e« 46 194 gene ASCII \FLOAT\ : 
54 41 GF 4C 46 SF ag 194 ptt “ASCII \F_FLOAT\ ; 
54 41 GF 4C 46 SF 44 OOIAg peacn: “ASSEE SD_FLOAT\ 
54 41 4F 6C 46 «SE 647 «OOTAA "  TASCII \G_FLOAT\ : 
07 00181 P.ACO: ‘BYTE 7 : 


54 41 

45 

4a 

45 4D 49 54 


43 4F 4C 54 


4F 
4s 
45 
SF 


58 


52 
48 


46 
55 
43 
54 
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11 
16-5ep-1 o8¢ 91:13: 3 Ax-11 B 
1 =tep- 2:16:54 DEBUG.S 
186 eASCII = \H_FLOAT\ 
1B9 P.ACP: .BYTE 
1BA eASCII \SOURCE\ 
1C0 P.ACQ: .BYTE 
1¢ eASCII \PACKED\ 
1C7 P.ACR: .BYTE 
1¢8 ASCII goats TREN 
101 P.ACS: .BYTE 1, 4 
103 P.ACT: .BYTE 1, $4 
105 P.ACU: .BYTE 1, $8 
107 P.ACV: .BYTE ° 
109 -BLKB 
106 P.ACW: .ASCII \O\<0><0><0> 
O1EO P.ACX: .ASCII <8>\ZNEXTLOC\ 
-PSECT DBGSOWN,NOEXE, 
O000C NUM_DESC: 

-BLKB 12 
DBGSCS_INSTRUCTION= P.ABL 
DBGSCS_SYMBOLS= P.ABM 
DBGSCS_NOSYMBOLS= P.ABN 
DBGSCS_BINARY= P.ABO 
DBGSCS_OCTAL= P.ABP 
DBGSCS_DECIMAL= P.ABQ 
Soest ee RADE L IAAL® P.ABR 
DBGSCS_DEFAULT= P.ABS 
DBGSCS_AC= P.ABT 
DBGSCS_ASCIC= P.ABU 

G$CS_AD= P.ABV 
DBGSCS_ASCID= P.ABW 
GS$CS_AW= P.ABX 
DBGSCS_ASCIW= P.ABY 
G$CS_ P.ABZ 
peeeesensti ts P.ACA 
BGSCS_ASCII= P.ACB 
DBGSCS~CONDITION. er 
DOGsCs _Psts P.ACD 
DBGSCS_PSW P.ACE 
cs “BYTE= P.ACF 
G$CS_WORD= P.ACG 
Feb oweuongs P.ACH 
CS_QUADWORD= P.ACI 
BeaDe LANORDS P.ACJ 
sett enr PAT P.ACK 
bBe CSF “FLOAT: P.ACL 
C3 _D_FLOA T= P.ACM 
G$CS_G_FLOAT P.ACN 
G$CS_H_FLOAT= P.ACO 
G$CS- SOURCE= P.ACP 
CSEScDATE TIMES PLACR 

= oe 
CSCS -COMMK: P.ACS 
CS_COLON= P.ACT 
CS_SLASH= P.ACU 
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open EP 


000000006 
08 
14 


000000006 


01 


000000006 


000000006 


14 


000000006 
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DBGSCS_CR= P.ACV 


OFFC 00000 
« 2g 
33 ; 3 a 
Bm Be 
Ae 1 cE 00019 
; aR 
ee at 
58 t 06 0005 
GE 900000006 00 9a 00031 
& 000000006 9A 09 
Seen HBB 
00000000" BO Bones | 
90 g OO Oost 
03 50 8 90088 
od $1 00088 
oos00000" ee SF booen -* 
5 Dd 00066 
00 O§ FB 090 
01 0 1 0006 
0a 12 00072 
« 9 Bae 
ce 
0000000" EF oF 5 
8 BES 
| gt Be 
‘ of Sa 
Oy DD 90098 48: 
00000000" €F oF 3 ; 
ee ah 
nS 
M ig 
C 5$: 


<PSECT DBGSCODE,NOWRT, SHR, PIC,0 

.ENTRY 0 GSNPARSE EXAMINE, Save R2,R3,R4,R5,R6,R7,-: 
RBRO.RIO,R11 

SUBL2 #32, §P 

PUSHL &#% 

CALLS #1, DBGSGET_TEMPMEM 

MOVL R 


NOUN_NO 
MOVL § VERB_NODE, R 
MOVL NOUN NODE, 8(R5) 


MNEGL #1, TYPE 

CLRL gl ts 

CALLS #0, DBGSNGET MODE 
MOVL . SYMBOL 

CLRL SYM_OVERRIDE_PRESENT 


x 
MOVL #1, LOWER LAG 


PC_FLA 
MOVZBL DBGS$GB_RADIX; INP_RADIX 
MOVZBL DBGSGB-RADIX#2, RADIX 
MOVB oft ) 

MOVL INPUT _DESC, R2 


r) 
PUSHAB pean: 


PUS : 
CALLS #3, DBGSNMATCH : 
BLBS RO, 2$ : 
BRW 59$ : 
PUSHL #1 3 
PUSHAB DBGSCS_INSTRUCTION : 
PUSHL 3 
CALLS #3, DBGSNMATCH : 
CMPL RO, #1 3 
BNEQ 3 
MOVL #22, TYPE $ 
CLRL NGTH : 
BRW : 
PUSHL #1 : 
PUSHAB DBGSCS_BYTE 3 
PUSHL R 3 
CALLS #5, sqeueuren 3 
CMPL n't a : 
BNEQ 4 : 
MOVL a6. TYPE s 
MOVL #1, LENGTH 3 
BRB 1$ : 
PUSHL #1 3 
PuS GS$CS_WORD 3 
PUSHL = R : 
CALL #5, poesinarcn 3 
CMPL RO, @ 3 
BNEQ 6 3 
MOVL a7, TYPE 3 
MOVL Wee LENGTH 3 
BRB 1 F 
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voe 1 =300 7} 38% 93:43:92 DEBUG. SRC IOBeEXADES .039s1 
01 0D OO0BE 68: PUSHL #1 
00000000" EF BP ¢ PUSHAB DBGSCS_CONDITION_VALUE 
DD 000¢ PUSHL R 
000000006 00 F ¢ CALLS #3, DRGSNMATCH 
1 p CF CMPL =SsRO. @ 
p be BNEG 7 
16 AE D MOVL #8, TYPE 
10. AE 4 D D8 MOVL #4. LENGTH 
5A p ye MOVL #1. MSG_TEXT 
6 DF BRB 10$ 
po £1 7$: PUSHL # 
00000000" EF 9F E3 PUSHAB DBGSCS_DATE_TIME 
DD O00E PUSHL 
LL , H 
000000006 00 FB OOOE CALLS #3, DBGSNMATC 
' 7 8S O0bE 4 
16 AE 3 96 OOF MOVL #35, TYPE 
0201 31 O00FB BRW 42$ 
03 OD OOOFE 8S: PUSHL @# 
00000000' EF 9F 00100 PUSHAB DBG$CS_PSL 
: DD 001 PUSHL R 
000000006 00 0 FB 0010 CALLS #3, DBGSNMATCH 
01 0 01 0010F CMPL ~=s RO. #1 
OE if 0112 BNEQ 9 
16 AE 04 00 00114 MOVL #4, TYPE 
10 AE 04 20 0118 MOVL 4&4, LENGTH 
01 A 6 90 0011C MOVE #6. 1(R5) 
9A 11 00120 BRB 5$ 
03 DD 00122 98: PUSHL #3 
00000000' EE 9F 00124 PUSHAB OBGSCS_PSW 
: DD 0012A SHL R 
000000006 00 Q FB 001 ¢ CALLS #3, DBGSNMATCH 
- be 0 + BNEO " 
16 AE a3 06 1 MOVL #3, TYPE 
10 A 3 DO 0013C¢ MOVL #2. LENGTH 
01 A 07 90 00140 MOVE #7. 1(R5) 
1E 1100144 10$: BRB 12$ 
01 po D146 11$: PUSHL # 
00000000° EE F 0014 PUSHAB DBGSCS_LONGWORD 
DD 0014 PUSHL R 
000000006 00 : FB 001 CALLS #3, DBGSNMATCH 
? ei ame 
‘ 
16 AE a8 D b15¢ MOVL #8, TYPE 
10 AE 4 p 1 MOVL #4. LENGTH 
FEE 0164 128: BRW 1$ 
po 0167 13$: PUSHL #2 
00000000" EF 9F 00169 PUSHAB DBGSCS_AC 
DD D1 gf PUSHL R 
000000006 99 FB 00171 CALLS #3, DEGSNMATCH 
DO 00178 MOVL RO. R 
01 : 0178 CMPL sR? vl 
g 13 0017 Bear = 148 
05 od 001 PUSHL #5 
00000000' EE F 001 PUSHAB DRGSCS_ASCIC 
2 od 001 PUSHL R 
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daa al 1o-808=438e 93:48 - DEBUG. SRCTOBGEXADES .03951 
F CALLS , DBGSNMATCH 
000000006 ; , CALL bB 
14 AE $ D 14$: BOVE Hy 
10 AE i p A 15$: ROVL g LENGTH 
2 DD OO1A0 168 PUSHL 
00000000" EF oF A PUSHAB : GSCS_AW 
000000006 F AA CALLS , + DEGENMATCH 
ef b} 8, CRPL # 
87 EQL Rf 
9 PUSHL #5 
00000000° d oF ff PUSHAB - _ASCIW 
000000006 00 08 FB cs CALLS DRGSNMATCH 
A if €D BNEQ 196” 
10 OM 3 BO 03 a te Hf "LENGTH 
11 00107 18$ BRB 
00000000' o2 4 a4 ~~ PUSHAB pacscs _Al 
sooneoe AAR BE Fe tecture 
99 30 50 EA MOVL R : RS 
‘ ce a 
o8 DD OO1F PUSHL # 
00000000' FF oF r PUSHAB > neces 
000000006 00 08 FB FC CALLS #3, DGSNMATCH 
1 BNEQ 21$ 
14 AE $ 8 208:  MOVL #39, TYPE 
¢ 11 0020C BRB 15$ 
bp Oe 21$:  PUSHL #2 
00000000° ef oF 0 i PUSHAB ie AD 
F 1 CALLS DBGSNMATCH 
000000006 i ‘ 0 If rat Ff 
1 BEQL 
i 13 058s Brat. 
00000000' EF oF 9 Ri | D hes _ASCID 
000000006 00 ; FB 1 CALLS i ; DGSNMATCH 
A BNEG 2 .* 
14 AE D 38: MOVL #56, T 
~ a3 ' in? ie a not 
01 DD 00247 25$:  PUSHL #1 
00000000 Y oF 49 PUSHAB ae _ASCII 
000000006 00 § FB 00251 CALLS #3, DBGSNMATCH 
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Seunss 
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000000006 
14 


000000006 


000000006 


000000006 
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14 


01 50 
00000000’ of 
‘ia 
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a3 A 
8F 10 AE 
zh 
EF gcnpoann: : 
" 00028180 ott 
ag 
00 
i 
00000000 gf 
8 
. 3 
§ 
00000000 gE 
00 
54 : 
00000000' . 
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DEBUG. § i ge xAnee 3.1 


RC JDBGEXADEP.B 
#1 


$ 

GSCS_COLON 
re 
bese 


LENGTH 
: . GOSONSANE INTEGER 


ENGTH, #2048 
#1, NUM 
P. ACW 

NUM_DES 


#164272 
#35 DBGSNMAKE _ARG_VECT 


#14, TYPE 
50$ 


ge 
psa 


#3, DBGSNMATCH 

Bog 

#2 

> erate 

#5, DBGSNMATCH 
#1 


DESC 
Run ve SC+4 


Fh RADIX 


penne 

» DBGSNMATCH 
§ e 

$ 


em 


° poctennree 
i 


DBGSCS_DECIMAL 


RADIX 


RVWRWD BDO BWaAw 
Ano 
we 


WDawD 


$ 
1, TYPE 
$ 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 
14 
10 

000000096 


14 
10 


00000000' 


00000000' 


00000000° 


00000000° 


AE 
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—OON D9 79 "COON D9 19 ON W989 SO SN DWO "OS 
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-Sep-1 
~Sep-1 


lege ft dhe w 


be T2182 Ebkaue. Sac 


we 
= 
bad 


Ww 
ow 
PM 


37$: 


Sac 
: » DRGSNMATCH 


i 
#10, RADIX 
4 


e 
panama 


“3, DEGSNMATCH 
a 

#16, RADIX 
438 

“i 
os 
“3, DAGSNMATCH 
R0 ¥ 

#1, SYMBOL_FLAG 
a8 : 
peste 
#3, DBGSNMATCH 
R a 

SYMBOL _FLAG 

#1, SYM_OVERRIDE_PRESENT 
458 

#2 

pene 


#3, DBGSNMATCH 
RO, #1 


i 
45$ 
#) 

* gins: 


#3, DBGSNMATCH 
RO, #1 


SOURCE FLAG 


#9, TYPE 
% LENGTH 
ri 

. G$CS_OCTAWORD 
#5, pocteseren 
? ’ 

496. TYPE 

#16, LENGTH 

51$ 
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Page 53) 
74 
1 PSST aes Bh oF P83; " 4 ; 1507) 
Kt $2 Eoeeuc. re dpee vo 
if. gen 1784 93:13 : | 
$68s Puss Sacscs. FLOAT cP) 
01 pp poses PUSH Re + REGSNMATCH $1508. 
GEXADEP 00000000" §F 9F 4 hove a ye 
ated tes ape ey 
L FLFL . 
sateen ef 6 3 ti PUSHAB D — cH £1510, 
OT p> Beets CALLS 3, pacshma Bie 
a” =. BD oocis iat i TYPE ; 151 | 
00 § 9 7 5 , MOVE 219. LENGTH ; | 
000000006 09 . } Dage 478: MOVL 508 mt EY 
d USHAB DBGSCS_G_FL : | 
AE 5 9 oes mo. ee © > 1517. 
ieee B co eG i ee 
. &£F CAL ’ : 
<pieeney ae a3 NEG ret TYPE ro 
d1 OVL 3’ é | 
00 ay 91 Be? " 2 ; | 
apreeme® i a 9S: PUSH DaGSCS_H_FLOAT 1524 | 
14 Fot8 OF oben PUSH Re DBGSNMATCH ; 1385 
oF = gs > 1526 | 
0° fF 5 CAL a 19 | 
wore 8 mse od 
nt) oe ‘0 8 
ocean a ir Ba 
D : : 
3 (UM oY bo oe at PUSHL bases =PACKED : ga | 
ie 63 Op PUSH DBGSNMATCH : 1333 | 
: F LS wi >; 1538 | 
00000000" EF 9F $c) CAPE m0 ; 
: tO oper BNEQ 3 : TYPE ; 
00 3 FD Doak HOVL a. RADIX : | 
" g a Bp BES B penmure ac 
LL : 3 
00000000" ; FB 00495 a fj, (stor wal 
5 ; | 
E F BRB NGTH ; 
0 H 8 GER : 1554. 
000000006 ob o1 ii Ks 538: Push ; DBGSNSAVE_INTE : 
LL ‘ ; 
0 3S OD AA gLBS m8 0 
a Brey BRW NGTH, R 
BT doce4 $: Ro, LEN , 
000000006 88 01CC B7 548: BLSs RO, #3 
10 AE 00 00687 CMP 
50 9 D1 BD 
F 


} 


Page 54 | 
= i s-32 v4.0- ) 
1b-5¢ Ben 158e Soiiarse — EogauG. SkcSoBeeKADES.049;1 (6 | 
vOs=00 i 4c BLEQ 8 56S. ; 1556. 
i ie $5$:  PUSHL eae 

Be Rhee PUSHL ee 

1 BD dec PUSHL #165928 peek 

00028828 BF DD d04C6 CALLS #3, LIBSSIGNAL i 1319 

000000006 00 eat SF beers os: RY g 1563) 
+ EF OF ObcD8 PUSHAB DRGSCS_CR oan | 

menses Dp a5 CALLS #8, DBGSNMATCH ; | 

000000006 9 ; es Me? Hg 0 ; + 1565 

01 ; SHL #16404 

mee 6h “t , Noeaae CALLS AI DBGSNMAKE_ARG_VECT i 1568 

000000006 00 01 3} Oct ses: eke SYM_OVERRIDE PRESENT, 608 ¢ 1879 
z bb 005 CALLS DBGSSET MOD_LVL : 1580 

000000006 00 4 82 MOVL Saat ee PTB RCS S sons! 
50 000000006 8 0510 MOV : SYMBOL_FLA ; 
a ~ he DBGSCS_CR | 
smi fe eet 0. seme ES 

000000006 69 35 8 005 5 BL8S ts 61$ : 1605. 
(Ore Br OOS5e 61S:  PUSHAB Suny Pica! 
08 AE 9F 00528 618: PUSHAB  Dunmy Be «] 
Me ORE OOF Boag PUSHAB SYMBOL_VALUE : | 
i AE 9F b2 7 PUSHAB P. ACK M_FIND | 
00000000" FF 9F 00537 CALLS #3. “Degsver. sy Dacenl 
000000006 90 8 ES B3e22 BBC RO, 658 ‘haul 
3 04 AE 01 ted beer 62$ ; 1610) 
Re bi O8cp CMPL KIND, #5 * 1616) 
50 Oc AE 0 00553 628: Rov SiraoL.y pee 
mo “ a 12 9085¢ BNEQ 4S E1621 | 
3 ht #6 09) MOVE $2(ROS, 24(RO) 1632, 
18 AO 2 A091 O86 CMPB (RO), pies 
a nee 13 0056 355 tRO), #36 | 
22 OF de BRee CMPB (RO), #41 seed 
2A 16 AS 9} 0037A BNEQ $ 1688 
BB Oph Botan 638: ane ato), 28(R0) 3 1635 | 
1c =A 7E 64$: PUSHAB DUMMY : 
¢ AE oF PUSHAB SYMBOL _VALUE ; | 
© 8 BF BoRA PUSHL Pee! 
PB OOSBE CALLS #4, DBGSNCOPY_DESC > 1609 
000000006 00 de fo BRE «66$ | 


" | 
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vOe=000 e350 198e Vbila:se — EOEeuG.Srcloacexavér.633;1 29° 8) 


00028808 8F OD 00598 65$:  PUSHL #165896 3 1642 | 
000000006 ry F 9 CALLS #1, LIBSSIGNAL ; 
gc AE D A5 66$:  MOVL | SYMBOL_VALUE, (NOUN _NODE) + 1644 
oc A C AE p A MOVL SYMBOL VALUE, 12(NOON_NODE) : 1945 
00D AE 67$: = BRW 7$ : 1 86 
O BD 0058] 688: PUSH. I : 1657 | 
00000000' gE F 0058 PUSHAB DBGSCS_CR : | 
DD 0058 PUSHL R : 
000000006 00 9 F 28 CALLS #53, DEGSNMATCH 3 
; a2 BS O0sC 73; he ; ‘ese! 
F ° 2¢ BEQL - ; 
1A E C9 BLBC LOWER_PC_FLAG, 69$ + 1664 
0c aC DD 005¢C PUSHL WE SSAGE_VECT + 1669 
08 DD 005CF PUSHL # : 1668 | 
08 AE DD 00501 PUSHL INP_RADIX : 
O¢ BB 00504 PUSHR #*M2R2,R3> : 
000000006 90 9 FB 00506 CALLS #5, DBGSNPARSE_ADDRESS : 
DO 00500 MOVL RO, STATUS ; 
oc AS 63 00 005€0 MOVL § (NOUN_NODE), 12(NOUN_NODE) > 1670) 
17 11 00564 BRB 0 + 1664 
0c AC DD O5E6 69$:  PUSHL MESSAGE_VECT + 1675 
01 DD 005E PUSHL #1 + 1674 
08 AF DD 005EB PUSHL INP RADIX : 
OC AS 9F OOSEE PUSHAB 12(ROUN_NODE) : | 
52 DD 005F1 PUSHL R : 
000000006 00 : FB O05F3 CALLS #5, DBGSNPARSE_ADDRESS : 
57 9 DO OOSFA MOVL RO, STATUS F 
01 57 D1 005FD 70$:  CMPL =‘ STATUS, #1 : 1677 | 
AF 13 9600 BEQL : | 
57 d5 0060 TSTL STATUS : 1679) 
D 12 00604 BNEO 6$ ; | 
01 pp 0606 PUSHL #1 ; 1685 
00000000° EF F 060 PUSHAB DBGSCS_COMMA : 
: DD 006 PUSHL : 
000000006 00 03 FB 0061 CALLS #3, DBGSNMATCH ; | 
<4 31 bm OoctA Site st > 1692 | 
00000000° EE OF d6i¢ PUSHAB DBGSCS_CR : 
DD 006 PUSHL R : 
000000006 00 : FB 624 CALLS #3, DBGSNMATCH : 
0D E9 00628 BLBC : 
-00028000 BF DD E PUSHL #16404 + 1694. 
000000006 00 1 FB CALLS #1, LIBSSIGNAL : 
4 OD 71$:  PUSHL : 1700 
000000006 0 1 FB 0063D CALLS #1, DEGSGET TEMPMEM : 
08 A : D0 00644 MOVL RO. B(NOUN RODE) : 
2 08 A3 00 00648 MOVL § 8(NOUN NODE), NOUN_NODE : 1701 | 
8 04 p 64C MOVL #1, LOQER_PC/FLAG ; 1706 
16 33 E9 1 72% BLBC LOWER_PC_FLAG, 73$ F 126 
BD 4 PUSHL #1 : 171 
00000000' €F 9F 6 PUSHAB DBGSCS_COLON ; 
DD C PUSHL R ; 
000000006 09 FB CALLS #3, GSNMATCH ; 
E BLBC Osa, ; 
D4 CLRL = LOWER_PC_FLAG > 1714 


N11 
DBGEXADEP 16-Sep-1984 01:13:03 AX-11 Bliss-32 V4.0-74 
MOec 000 12-868} Hn PE ee Pi DEBUG. SRC IDBGEXADEP.B3 31 
FE44 31 O066A 738: BRW 68$ 
53 DD 00660 74$ PUSHL R 
000000006 00 9 FB O066F CALLS #1, DBGSNNEXT_WORD 
0 DD 006 $ PUSHL RO 
000000006 00 01 F 7 CALLS #1, DBGSNSYNTAX_ERROR 
0c BC 0 D 7F 758: MOVL RO, @MESSAGE_VECT 
04 BO é 3 76$: MOVL #4, RO 
3 DD 00687 77$: PUSHL #3 
000000006 99 1 FB 00689 CALLS #1, DBGSGET_TEMPMEM 
; DO 006 OVL RO, ADVERB_RODE 
04 AS 3 p 069 MOVL ADVERB NODE 4(R 
7 80 BF 9 MOVE #-128,~ (ADVERB. NODE) 
0 63 D0 00698 MOVL § (NOUN.NODE), ABDR_EXP_DESC 
FFFFFFFE © 8F 14 AE D4 069E CMPL TYPE, "#=1 
7 ¥ O6A6 BEQL 
67 14 AE 90 006A MOVE TYPE, (ADVERB_NODE) 
04 A? 10 AE dO 006AC MOVL LENGTH, 4(ADVERB_NODE) 
3B SA £9 0681 BLBC MSG_TEXT, 80$ 
01 AS 93 0 00684 MOVB #5, 1(R5S 
5 11 00688 BRB 8 
10 AE 9F O06BA 78$: | PUSHAB LENGTH 
18 AE 9F 006BD PUSHAB TYPE 
000000006 00 02 FB 006C0 CALLS a2, DBGSNGET_OVERRIDE_TYPE 
" 10 Hy ge Bosca SE SHAB eg 
18 AE 9F 006CD PUSHAB TYPE 
000000006 00 02 FB 00600 CALLS #2 DBGSNGET POTENTIAL. TYPE 
F 4 AE D D CMPL ‘TYPE, # 
00000080 8 1 1 00607 PE, #i2 
146 RE. DS bee) Pert TYPE 
09 3 OOGE4 BEQL  80$ 
67 146 AE 90 006E6 79$: MOVE TYPE, (ADVERB_NODE) 
04 A? 10 AE 00 OOGEA MOVL LENGTH, 4 (ADVERB_NODE) 
52 08 A? SE OO6EF 80$: MOVAB &(R7), LINK 
03 DD 006F3 PUSHL #3 
000000006 00 01 FB 006F5 CALLS #1, DBGSGET_TEMPMEM 
57 20 DO 006FC MOVL RO. ADVERB 
62 5 p0 O6FF MOVL § ADVERB_NODE, (LINK) 
6 54 90 90708 MOVB = RADIX, ~ (ADVERB_NODE) 
000000006 09 54 00 0070 MOVL RADIX, DBGSGL_CMND_RADIX 
A? 9E MOVAB 8(R7). LINK 
re a an 
000000006 90 gi F of CALLS #1, DBGSGET_TEMPMEM 
0 00 0071 MOVL RO. ADVERB 
6 57 071C MOVL ADVERB_NODE, (LINK) 
4 59 O71F MOVE § SYMBOL“FLAG. (ADVERB_NODE) 
04 58 f 07 é BLBC  SOURCE~FLAG, 81$ 
01 «AS 04 90 07 MOVB #4, 1( 
50 01 : 07 9 81$: OVE #1, RO 


3; Routine Size: 1837 bytes, Routine Base: DBGSCODE + 0507 
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vOee000 102 3¢5-}98¢ Mb 1a:se DEBUG. SRC IDBGEXADEP.B3 31 : FB 


S 


GLOBAL ROUTINE DBGSNFORMAT WITH RADIX (ADDRESS, OFFSET, LENGTH, RADIX) : NOVALUE = 


IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

The byte stream corresponding to the translated number is filled 
ROUTINE VALUE: 


WN "SO OONAUES WN“ OOODNAUVSWN OOOO 


#3 

4 ! FUNCTIONAL DESCRIPTION: 

7 Formats the contents of a arbitrary number of bits into a printable 

4 hex or octal number, or a sequence of unsigned decimal longwords. 

n FORMAL PARAMETERS: 

71 ADDRESS - A Longword containing the byte address of the 
4, ; location to be printed 
| ri OFFSET - A longword containing the starting bit offset 
71 4 LENGTH - A Longword containing the number of bits to be 
4, : printed 

71 4 RADIX - A longword containing dbg$k_octal, dbg$k_decimal, or 

4) ‘ dbg$k_hex, indicating the radix to be used for output 

7 4 

7 4 

7 5 

7 5 

7 5 

7 5 

7 5 

7 5 

7 5 

7 5 

7 5 

7 5 

7 
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WIN OS ODBNAOUS WN $0 ODNAUES WN S(O CONOUS WN —OV0ON 


a ee ee ee ee ee eee ee eee ee ee 
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PIP IPIMIPIPOMNIMIMP IN IPIN INI at a at tt tt rt tt ht tk kk kk kk kt tt tt 


NOVALUE 
3 COMPLETION CODES: 
734 
735 NONE 
736 ‘ 
Lad 864 ' SIDE EFFECTS: 
738 865 ! 
739 866 4 NONE 
740 867 ‘ 
741 868 Poe 
me 36? BEGIN 
74 ; 0 
744 71 LOCAL 
745 13 CHAR_TABLE : VECTOR [16], ' Character trans table 
746 87 nIBBCE : BLOCK C ' Nexts bits for char trans 
747 874 BIT _VECT : REF BITVECTOR, i Bits to be translated 
748 875 BITS_PER_NIBBLE ' Number of bits for 1 char 
749 876 FIRST_NIGBLE_BITS, i Number of bits for first nibble 
750 87 FIRST_FLAG, ! Indicates first nibble 
751 a78 START, ' Start bitvect position 
P36 87 FINISH ! End bitvect position 
75 380 LONG WORD : REF BLOCK, ' Longword for decimal output 
ree Ht INDER; ' Loop counter 
756 8 MACRO 


pe 
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vOee000 em tiae ts 1 Ont: i DEBUG. SRC IDBGEXADEP.B 1 age 38 
GET_NIBBLE 2 | | 
BEGIN 


This macro obtains the next nibble of bits for octal or hex output 
nibble = 0; 


— 
>. 
oon 


a ___ 
o 
-—o 


ao 


SSNS SSNS Oo 
SSBVSAR UNS SOURA RoW 


Obtain the correct number of bits 
if .bits_per_nibble EQL 3 | 
THEN 


Ooo 


_vect C.start); 
_vect C.start - 1]; 
_vect C.start = 2); 


Start - 4] 
Start - ¢ 
start - 


SSNS SSNS SSS 


ad ; 


j; 


SSSSSSSSS 


CoCo 
Coooooowowono 


wn 


start = .start - .bits_per_nibble; 
END %; 


a 
ce ee ce re ce ee ee ee ce em ec ee a ee ee me ee ee ee ee ed ed dd ed od dd od 


SOLE Ae 


Check for decimal or other radix 
IF .radix EQL dbg$k_dec imal 
THEN 

BEGIN 


! Line up the longword and take bits corresponding to the 
the first longword and output them 


P3339 
wn 


s 
oO 
w 


long_word = .address; 
iF egvenath + .offset LEQU ZBPVAL 


BEGIN 
: The entity has less than a longword of bits, counting the offset 


APRITIMININNININININD 2 2 


nibble = ,long_word (0, .offset, .length, 0); 
length = 0; 


ELSE 
BEGIN 


Atleast a longword of bits counting the offset 


nibble = .long word £0 .offset, XBPVAL - .offset, 0); 
length = .length - ( BPVAL - offset); 
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wn 
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z > ee A et AA) 
. coooon vcoCcCosa 
*-coco. coc. 
aed eel ee” 3 aa” <4 
eaeon0 eee 
anrrr err 
ooo oo 
ee 8 ees 
omnNw orn 
ee es ess 
— ee —— 
ss © @& .*s © 
ooooe ooo 
Wists ests 
“nunun now 
see se @ 
cocoe ooo 
ae ee te te mts 
rrctrctc? cect ct 
oeee 
<<cc 
eon 
aan 
rec 
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Gp 090000: 
= ot 
wWwn—o& 


e= “sone word C.index 9, len 
(UPLTT BYTE (ZASCIC *!2L'), nibble); 


§ 
3 
3 e dbgserint 

rin 
5 Be ENB: 
3 8 
5 END 
3 § 

ELSE 
BEGIN 


' Octal or hex radix. Set up the bit vector and the start and finish 
indicies 


33 


WEWN—O0Ono 


wnt 


finish = .offset; 
h + 


start = .finis elength = 1; 


$333333 
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miretitd 13-8 8=138e 9 13:8 DEBUG. SRCTSBGEXADEP.B35; 1 ° a 
>: 18146 1941 END; 
; 1815 1306 
3 1 194 
3 } } 94 Output the first longword 
3 1 8 1208 dbg$print (UPLIT BYTE (ZASCIC ‘!Z7L'), .nibble); 
3; 1820 194 
1852 199 tL tputting the bits a L d at ati 
3 ! Loop, outputtin e s a longword at a time 
1858 1950 Sener * | 
> 1824 1951 index = 1; | 
3 \ 5 1326 WHILE .tLength GEQU %BPVAL 
3 1 S 195 dO 
3 3 1954 4 BEGIN 
3: 1828 1955 4 
: 1829 1328 4 ' Output a space 
: 1830 1957 4 ! 
3 133) 1958 4 dbg$print (UPLIT BYTE (ZASCIC ‘!AC'), UPLIT BYTE (ZASCIC ° °)); 
3; 18 $ 1959 4 
; 183 1960 4 
; 1834 1961 4 ! Output the next longword 
>; 1835 13o6 4 ! 
3; 1836 1963 4 dbg$print (UPLIT BYTC (ZASCIC *!2ZL") 
: 1837 1964 4 -long_word C.index, 0, $2, 02): 
; 1838 1965 4 
3; 1839 1966 4 
3; 1860 1967 4 ! Increase index and decreese Length 
3 1841 1968 4 ‘ 
3 1g 1969 4 index = .index + 1; 
3; 184 1970 4 Length = .length - %BPVAL; 
3 1844 1971 4 
>; 1845 1976 END; 
3: 1846 197 
3; 1847 1974 ! Output remaining bits, if any 
3 HF 1975 } 
3 1849 Hb 4 IF .length GTRU 0 
: 1850 197 THEN 
: 1851 1978 4 BEGIN 
3 1 4 1979 4 Sppnor int (UPLIT BYTE (ZASCIC “!AC*), UPL it BYTE (ZASCIC * ")); 
3; 18 19 4 nibb gth, 0); 
3: 1854 19. 4 
3; 1855 19 
3 7 19 
3 1 19 
a 19 
3 1 19. 
3 1 19 
.% 19 
3 1 19 
3 1 1 
3 1 1 
3 1 1 
3 1 1 
31 1 
3 1 1 
3 1 1 
3 1 1 


traf 
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“ _~ = & 7 ee et bat et 
ee 2 2 & ec ce 
2 2 °o @e ae eae 
~ —= = c a oS bet ee et 
«a Cc Cc w ow “nun 
Sad PSPS FSFE FSFE SSSR SS SS SSSR CR SS ES SD t ae ° ee eee 
re) POO POOP OOOO POP we . vu ws —_— =) -_—— = 
oO seen evneveneeeeeeeee Ww e € 
tas 4 Or CUM TINOF- OO << Ov Ouwu -¢ a oe ca a be et 
- =—- i (i «ee eeeeeeeeeeneeeee - § w (=) wv vwvuv 
Co * - w oe aoe eae 
oa ao VYVVYVVVYVYVYUYUVYVYUYUUYUUYUYUY oe o > >> >>> 
.- 2 pe a 9 8 8 09 Od ed td Oe et eo - my c 5 a | eee 
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Cat al dal DOOD—NVUM TNO DOOKNUMTNOR DOO UMN DOOK—TUMTNOR DOOM 
> Boo ooo NN 3$3333333S2S3SSSSS 
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1986 92:16:54 


start = .start - .first_nibble_bits; 
If .first_nibble_bits NEQ 0 
THEN 


WO O0OnNOuw 


} Format the rest of the bits 
WHILE «start GTR . finish 


to 


SNS 
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SOOoooooooooooo 
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wr 
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! End of format_with_radix 
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e; 
BYTE (ZASCIC "!AC'), .char_table C.nibble)); 


: IF the first character emitted is alphabetic, prepend a ‘0’ 
if ztirettlep AND .nibble GTR 9 
dbgSprint (UPLIT BYTE (ZASCIC ‘!AC*), UPLIT BYTE (ZASCIC '0')); 


dbgSprint (UPLIT BYTE (ZASCIC ‘!AC*), .char_table C.nibble)); 
pices rteg = false; 


AX-11 8 
DEBUG.S 


DBGSPLIT,NOWRT, 
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»PSECT 


+-O---- WMOOW 
> ie ? tt a 
an 


o 
Fd 


DBGSCODE ,NOWRT, 


tenis 
Ri, #32 


RO, LENGTH, (LONG_WORD), NIBBLE 
NGTH 


NiéeLE 


Bee DBGSPRINT 
#1, INDEX 


apron. #32 
P.ADA 


P-ACZ 
#2, DBGSPR 
(LONG_WORD 


P.A 
#2, DBGSPRINT 


INDEX 
We LENGTH 


"eee 


Se Se Se Se Se Se Se Se Se 


RO, #32, R1 
RO, R1, (LONG_WORD), NIBBLE 
ENGTH 


Pe Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Ge Se Ge Ge Se Se Ge Se Ge Ge Ge Se Se Se Ge Se Se Se Ge Ge Se Se Se Se te Se Se Se 


H 12 
vos-000"" 1e$2p-198e $2:18:5¢ — EOEauG. Sac Some xAneP 0391 


6A 02 fe CALLS #2, DBGSPRINT 
8 01 D0 F 6$: MOVL #1, FIRST_FLAG 
06 AC D MOVL § ADORESS, BIT_VECT 
50 D MOVL. RO, FINISH 
oc A g ADDL3 LENGTH, FINISH, R1 
fFOA F MOVAB <-1(R1). START 
10 A ? A cmPL RADIX, @# 
57 06 as MOVL #3, BITS_PER_NIBBLE 
57 4 po 7$: MOVL #4, BITS_PER_NIBBLE 
6E 18 AQ 9E 00080 8$: MOVAB P.ADF, CRAR_TABLE 
04 AE 1A ADE 9084 MOVAB P.ADG, CHAR-TABLE+4 
08 AE 1¢ AD OF€ 989 MOVAB P.ADH, CHAR-TABLE+S 
OC AE 1E Ad OE 9 B MOVAB P.ADI, CHAR-TABLE+1 
10 AE AQ 9E 000C MOVAB P.ADJ, CHAR-TABLE+1 
14 AE AI 9E 000 MOVAB P.ADK, CHAR-TABLE+ 
18 AE 4 Aad 9 99¢ MOVAB P.ADL, CHAR-TABLE+24 
iC AE 6 Ad SE 990 MOVAB P.ADM, CHAR-TABLE+ 
0 AE 8 Aad 9E 0000 MOVAB P.ADN, CHAR-TABLE*+ 
4 AE A Ad 9E 0000C MOVAB P.ADO, CHAR-TABLE+ 6 
8 AE C Ad 99E 000E1 MOVAB P.ADP, CHAR-TABLE+4 
C AE E a9 9E O00E6 MOVAB P.ADQ, CHAR-TABLE+44 
6 AE 0 a9 9E 000EB MOVAB -P. ADR, CHAR-TABLE+48 
4 AE 2 a9 9E 000FO MOVAB P.ADS, CHAR-TABLE+S 
8 AE 4 Ad 9E O00FS MOVAB P.ADT, CHAR-TABLE+5 
3c OA 6 AD 9E OOOFA MOV P.ADU, CHAR-TABLE+6 
oc aC 1 7A O00FF EMUL #i, LEN #0, -(SP) 
BE 7 78 00105 EDIV. BIfS_PER_NIBBLE, (SP)+, FIRST_NIBBLE_BITS, 
FIRST NIGBLE_BITS 
4 04 90104 CLAL NIBBLE 
00 CF 910¢ CASEL FIRST NIBBLE_BITS, #0, #3 
000A 004¢ 00110 9$: <WORD 14$-98,- 
10$-9$.- 
11$-9$.- 
128-98 
42 11 00118 BRB 14$ 
01 EF OO11A 108 EXTZV START, #1, (BIT_VECT), R1 
00 1 FO OO11F INSV R1, #6, #1, NIBBLE 
$ 11 00124 BRB 14§ 
01 EF 00126 118 EXTZV. START, #1, (BIT_VECT), R1 
oN 1 FO 001 INSV R1, #1, #1, NIBBLE 
1 FF A H 1 MOV ire) R1 
1¢ 11 001 BRB 13$ 
1 3 EF 00136 128 EXTZV START, #1, (BIT_VECT), R1 
2 FO 001 NSV R1, #2, #1, NIBBLE 
1 FF Ae 9E 0014 V -1¢R2), R1 
1 3 EF 00144 EXTZV RI, #1, (BIT_VECT), RS 
1 5 FO 00149 NSV RS. #1. #1, RIBBLE 
1 FE Ae 9E 0014 MOVAB -2(R2). R1 
1 EF 00152 138:  EXTZV. Ri, #1. (BIT VECT), RS 
9 F 1 INSV RS, #0, #1, RIBBLE 
C2 0015 148:  SUBL2 FIAST_NIBBLE_BITS, START 
b 15F TSTL F [RSTINIBBLE BITS 
161 BEQL «6s 358 
D4 00163 CLRL FIRST_FLAG 


Oo 
= 


$3322 


: 


3 


S35 


fololelololelolololololq) 
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6644 po 65 PUSHL CHAR_TABLECNIBBLE) 
A =. © 4 Chts #2, DBGSPRINT 
$4 s of 15$: CRB ¢_08 FINISH 
54 D4 , CLRL =: NIBB E 
3 fe ns ROVAR | =2CR5)° Ri 
3 : pI 7 CPL BTS. PER_NIBBLE, #3 
0 66 1 ; EF EXTZV START ", (BIT, vECT), RO 
0 66 ¢ EF ¢ EXTZV HH: fe it raph RO 
4 1 1 9 INSV ® . RIBBLE 
50 66 01 EF 38 16$: EXTZV START " (air vECT), RO 
0 66 o1 EF Kg EXTZV RS. #1. (BIT VECT), RO 
54 01 2 0 FO OO1A INSV RO, We. #i, RIBBLE 
50 66 01 1 EF OOTAC EXTZ2vV R1, #1, (BIT _VECT), RO 
“ : a> AE SE SSIRL Aika Utah: gy RUBBLE 
0 66 01 1 EF BA 17$: EXTZV Ri. a. (eit ECT) RO 
99 39 3 C4 SUBL2 sits’ ven R,nleate. START 
OE 58 CE (7 BLBC 
09 54 1 CA CMPL hiBBL rt 
09 15 001CD BLEG 188 
40 Ad 99F OOICF PUSHAB P. ADx 
3¢ OO ADsOOF be PUSHAB 
6A 02 FB 001D CALLS on 7586 
6644 pp D8 18$:  PUSHL CHAR Hey NIBBLE) 
42. Ad 9F 00108 PUSHAB P.ADY 
6A 08 FB 001DE CALLS .. DBGSPRINT 
D4 OO1E1 CLRL FIRST_FLAG 
89 11 ES BRB 
04 OO1E5 198: RET 


; Routine Size: 486 bytes, Routine Base: DBGSCODE + 0D04 


3 196 $088 1 END ‘End of module 
3: 196 090 O ELUDOM 
-EXTRN LIBSSIGNAL 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: DBGSPLIT 559 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
3; DBGSOWN ¢ v WRT, RD *NOEXE, NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
3; DBGSCODE 3818 NOVEC.NOWRT, RD , EXE. SHR. LCL, REL, CON, PIC,ALIGN(Q) 


vaseaage? 1esbe94e QU:AE:RE YAGI SLUNSSRZ NGOs, Pome 


Library Statistics 


: eaaneeeas Symbols Sen ezeane Pages Processing 

: File Total Loa¢ed Percent Mapped Time 

; Sua :PSySUIBILI gb32i 1 18619 100 :01.8 

: RuCDEF 32:1 3 x! 09: 0.1 

; SpUA ‘tbeeue: $B) a L3 154 9 ‘, 97 :01.8 

; : (DEBUG. OBJ JDSTRECRDS.L32;1 re : . , sins 

; .$255$0UA28:(DEBUG.0B) DBGMSG.L32;1 3 1 ; 00:0 3 

; ate DEBUG. OBJ peatsé-Lag: 4] $8 é 3 g 0: 8° | 
: COMMAND QUALIFIERS | 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=L1S$:DBGEXADEP/OBJ=0BJ$:DBGEXADEP MSRC$:DBGEXADEP/UPDATE =(ENH$ : DBGEXADEP) | 


; Size: 3818 cage. + 583 data bytes 
; Run Time 


3 Sleseed Time: O34 i} | 
3 Lines/CPU Min: 407 | 
: Ronenee/cPu-ine 11613 
; ponery Used: 467 pages 
3; Compilation Complete 
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